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** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
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** LIABILITY ** 
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from their use for any purpose whatsoever. 
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***** EDITORIAL ***** 

The change to double-width mode for our program listings last issue evinced a lot of response 
from readers, mostly negative. As a result, we have reverted to the previous f°™f .. b f "^ 
one significant difference. This month we have used the ever versatile EPSOM MX-80 i n ^s em pha 
sised print mode, which reproduces much denser characters. We believe this should achieve 
aim of legible listings which are easy to read. If you have any comments to make on this month s 
listings, please do not hesitate to write in. 

We are proud of the quality of the programs we publish in MICRO-80, not only because of their 
performance but because of the accuracy of the listings. Many readers have commented how they 
can always rely on our listings and have compared them favourably with many other magazines. 
This is no accident. Before a program is published, it has been thoroughly tested by the appro- 
priate Software Editor. In many cases the author is asked to make minor modifications and some- 
times the Software Editors themselves rewrite sections of the programs. It can take several 
months from the time a program is submitted until it is actually published. Once the programs 
for a particular issue are debugged, the master cassette is punched out, a backup copy on disk 
is made and the programs are LLISTed. For a long time this proved to be a pretty foolproof 
system. However, recently we have been disturbed to find a number of errors creeping into the 
listings and onto the cassettes. On investigation, we discovered that the increased incidence 
of errors coincided with a change in our process several issues ago. Then, in response to requests 
from finger-weary readers, we commenced renumbering all Level II programs to faci iitate the 
use of AUTO entering. The renumbering was carried out after the original programs had been 
carefully checked out and just before the master cassette was punched. Apparently, during the 
renumbering process, spurious line numbers were occasionally generated after GOTO s etc. I he 
obvious culprit, the renumbering routine, turned out to be an innocent victim of circumstances. 
The actual fault was eventually found to be a noisy expansion interface causing random changes 
in data held in memory. The fault has now been rectified and our listings should revert to 
their usual high standard. In the meantime, as errors are reported to us, we will correct them 
in MICRO-BUGS. One of the first programs to be affected was Mighty Mormar. In debugging this 
program, Charlie Bartlett made some improvements. We will publish the revised version of Mighty 
Mormar in a future issue. We apologise for inconvenience caused to our readers by this fault. 

On a much happier note, we are pleased to announce the appointment of Tony Edwards as our first 
U.K. correspondent and European Software Coordinator. Elsewhere in this issue, you will find 
Tony's first article in which he introduces himself and explains the procedure to be followed 
by our European readers when submitting programs for publication. You may also send articles 
for publication to Tony who will pass them on to Australia. Here at MICRO-80, we are committed 
to serving '80 users all over the world and we are sure that, with Tony's appointment, we will 
be able to improve the service to our U.K. and European readers still further. 

A less happy announcement is that Michael Svensdotter, our Level I Software Editor, has resigned 
due to lack of time occasioned by a change in employment. Michael is one of the most experienced 
Level I programmers we know and will be a loss to us all. We wish Michael well in his new job 
and look forward to the occasional contribution from him as time permits. 

Charlie Bartlett our Level II Software Editor, who is also no mean hand at Level I programming, 

has assumed overall responsibility for editing of all MICRO-80 software. It so happens that 

our stocks of Level I software for publication are a little low so, if you have any programs 
you think we might like to publish, please send them in to Charlie. 

- 0000000000 - 
***** MICRO-BUGS ***** 

In which we correct those errors which seem to creep in, no matter how careful we are. 

FINANCE & REMOVING LINEAR BRACKETS - Issue 16 Pages 22 and 23. 

It finally happened. As we were assembling the magazine, we mixed up two listings. On page 
22, line 960 and all lines below it, should go at the base of page 23. The FINANCE program 
ends at line 930. REMOVING LINEAR BRACKETS ends at line 1220. 

VICTORY AT BATHURST - Issue 16 Pages 32 and 33. 
Page 32, Line 2930:- 

G0T0 8100 should be GOTO 2900 
Page 33, Line 3690:- 

G0T0 8985 should be GOTO 3760 
Page 33, Line 3890 should read:- 

3890 CLS:PRINT@330, "LAP 163 HAS BEEN COMPLETED!!!" 

- 0000000000 - 
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***** BETTER BASIC PROGRAMMING - by Rod Stevenson ***** 

** INTRODUCTION ** 

This is the first instalment of a proposed series which is intended as a companion to the now- 
expired "GT BASIC". 

It will be modelled on the same format used for similar talks to the Adelaide User's Group - 
the wide acceptance of which was the reason for your Esteemed Editor to request such a series. 
The writer is by no means an 'expert', so hopefully the phraseology will be acceptable to most; 
stimulating to the beginner, providing the seasoned computerist with some insights and points 
forgotten from earlier days. Unlike a lot of 'beginners' treatises, we do expect some knowledge. 
If you are convinced the instruction manual is too hard for you to discover how to LIST (yes, 
this is a real example from our experience), then this is not for you, . Because of the format 
we are using, we can only assume some knowledge on subjects not currently the one under review. 
An example: while dealing with strings we will mention arrays with no more explanation than 
needed for the case-in-point. However, when we come to the subject of arrays, we will cover 
all. Perhaps not all - the deeper complexities of some subjects will be the subject of a further 
composite article when we have led the self-confessed 'beginners' to realise that it is not 
all a mystery, and they can have confidence to pursue their own investigations of whatever takes 
their fancy! 

When allied thoughts occur, we will wander off (ramble?) the subject. 

In fact, we strongly emphasise the only path to true understanding is to put our words into 
practice. By so-doing, you will get a 'real feel' for the subject. Every one of the more exper- 
ienced users in the Adelaide Group has no reluctance in admitting this has been the way to success. 
Like the old story says, you only get out what you put in! 

Subjects we propose to treat: 

1. Strings 

2. Arrays 

3. Input checking 

4. Formatting output 

5. Machine language in BASIC 

6. Sound routines 

7. More advanced points of any of above 

8. Points requested by readers. 

The episode on machine language will be strictly-for-beginners - and this, of necessity, because 
your writer knows little enough. It, too, will follow the format established in the Adelaide 
Users' Group Newsletter. The aim is to show that machine language is not something to be put 
aside till later, or discarded as too hard. In fact, some things can only be done in machine 
language (e.g. modifications to the operating system); some things need machine language for 
speed. To whet your appetite : 

POKE 16396,151: POKE 16397,201 
The same effect will be accomplished by: 

POKE 16396,175: POKE 16397,201 

So too wi 1 1 : 

POKE 16396,23 

but we will tell you later why the former are better. Now that you have done this... we '11 wait 
for you... we are sure you must agree with us that this machine language routine to disable BREAK 
was not hard. And that's the level we'll be staying at - but with full explanations. . .NO, this 
paragraph wasn't written by Eddy Paay! 

Except in a few instances, we will be catering solely for non-disk users. Most of what we say 
will apply to disk, but we will not be indulging in any disk-only items. The real reason for 
this is that the writer is without disk. But also, we assume that disk-people will have the 
knowledge necessary to extend our comments and routines to their particular cases. For those 
curious about DISK BASIC, we can recommend "LEVEL 3 BASIC" by Microsoft - though you'll probably 
need a real use to justify the price of $59.95. Not that the price is exhorbitant for the 5|K 
of extended BASIC provided. 

Those who wonder why we keep mentioning the Adelaide User's Group can satisfy their curiosity 
by a $5 newsletter subscription*, 60c. for some back issues, 28c. for current issue. Just send 
to the address in the Groups' page. 

Above all, we are not writing for our own amusement. We demand feedback from readers. If you 
want a special subject covered, you need only ask. If you don't approve of the format, tell 
us, and we'll change if it's a general wish. If you have a better way, tell us so we can spread 
your wisdom. Don't harbour uncharitable thoughts until you've at least given us the chance 
to redeem ourselves. 
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** STRINGS ** 
WHAT IS ONE 

A string consists of characters contained within quotes. It can allegedly be up to 255 characters 
long, but unless you have a definite need, don't. While on that subject, we suggest not having 
long and involved program lines - if you do want to conserve space, write your program normally 
with reasonable length lines, then use a program such as "PACKER" to compress it to approximately 
80% of its former length. 

QUOTES 

We must admit there is room for confusion as to whether a string needs to be enclosed in quotes. 
The rule is, if in doubt, do. When assigning a variable there must always be quotes - as A$ 
= "QUOTES". However, as an input or a data item, quotes are needed only if there's a delimiter 
(colon, comma, leading blank) in the string. 

We know most times you can get away with leaving off closing quotes. But we suggest you don't, 
as herein lies a multitude of traps for the unwary. The most obvious one is the loss of control 
of line-feed, which may not show up till later in the program. Then too there's the subtle 
horrific trap which happens with RENUMBER or PACKER. Yes, we know the experienced will scoff 
at our caution, but you've been warned. 

While thinking of laziness, we're moved to implore you not to leave THEN out of IF THEN, 

or to use its alleged abbreviation of a comma. This will also cause problems which may not 
immediately reveal themselves such as with ELSE, GOSUB, and with utility programs, we know 
it's easy enough to think "it won't happen to me"; when it does, you won't be the first to have 
had the same thought. 

DEFINI NG 

Strings need space in which to work. The CLEAR statement is used to clear an area in memory 
solely for this purpose. Generally, you should clear the length of strings plus double the 
length of the longest one. CLEAR will also re-initialise any variables assigned, destroy DIM 
& DEF statements and generally do as its name suggests and CLEAR a lot of things you probably 
didn't want cleared. 

So use CLEAR as one of the first things at the start of your program. If you don't CLEAR, BASIC 
will allocate 50. 

Having CLEARed, you can now DEFine variables as strings, to save having to put $ after the variable 
every time it's used. However, the trap is that every variable starting with that name will 
be a string, e.g. if DEFSTRA, A will become a string variable, but so too will Al , AQ, A2. 
Actually the writer doesn't generally use the DEFSTR because of the real likelihood of forgetting 
it's been done. 

And thinking of variables - we suggest using meaningful names. It costs nothing and could save 
a degree of mental exertion at a later date (next day?). We also suggest looking in the manual 
for the explanation of defining variables as integer, double precision, single precision. We 
don't propose to go into it at all but, of course, if there's an overwhelming demand from readers... 

Again, the writer doesn't use a global DEFINT for fear of forgetting having done so. 

It is still necessary to DIM string arrays over 10, but as arrays are the proposed subject of 
the next instalment, we'll not get side-tracked here. 

OPERATORS 

Arithmetic operators apply to strings, but only += <>• One could hardly expect to be able to 
cube a string! 

There are times, though, when it would be handy to be able to subtract a letter from a string 
and one can't just use - (minus). While this subject will be enlarged upon in the episode on 
input checking, briefly, the method is: 

I $ = LEFT$ (1$, LEN (1$) - 1) 

Similar manipulations can be applied to search for particular letters, etc. The comparison 
for = proceed from left to right until a mis-match is found. The ASCII characters are compared 
one by one, so by consulting a table of ASCII values, one can determine what BASIC will consider 
is ft or = to what. 

The plus sign will simply add (called concatenate) two strings to make a string equal to the 

sum of the length of the former separate strings. It will not add in the arithmetic sense, 

which is why it is called concatenating, e.g. A$ = "WER": B$ = "ASD": C$ = A$ + B$ will qive 
C$ = "WERASD". 

The plus sign can also be used to print strings, without concatenating them previously, e.g. 
PRINT A$ + B$, will give the same result as PRINT A$; B$. 
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FUNCTIONS 

This whole list can be found in the Manual. The only reason for including it here is to avoid 
multitudes of incensed readers complaining that it has been left out. 

ASC (A$) returns decimal ASCII value of first character of A$; useful for determining 
the ASCII value without having to look up a table, such as shift characters, I , etc 
can be as PRINT ASC ("!"). * 

CHR$ (X) returns the character which is represented by the ASCII value X; useful for 
printing a normally unprintable character which would otherwise be a delimiter in a 
string, such as quotes, e.g. 

PR$ = "ASD" + CHR$ (34) + "QWE" + CHR$ (34) will assign PR$ to be 

ASD "QWE", which would not otherwise be possible. (Opposite of ASC (A$) 

FRE(A|) will show how much string space (allocated by CLEAR) is left. 

The A$ is a dummy variable and does not mean the space has been allocated to A$. 

LEN(A$) gives the length (number of characters) in A$ and is vital in manipulations and 
testing string input. 

STR$(A) converts the numeric value of a variable A to a string variable. This allows it 
to be worked on (in a non-numeric sense) by the string manipulator functions. E.g., to 
reverse a number represented by I 

1$ = STR$(I) 

Then 1$ = MID$(I$,3,1) + MID$(I$,2,1) + MID$(I$,1,1 ) . It inserts a space before the number 
which is normally present in a numeric variable to allow for a + or a - sign. 

VAL(A$) converts a string number to a numeric value so it can be worked on arithmetically. 
If there are alpha characters in the string only the preceding numbers will be recognised. 
Returns a double precision value. VAL and $TR$ perform complimentary functions. They are 
important as they make strings the most powerful and useful functions in our version of 
BASIC. 

NOTE: ASC(A$) and VAL(A$) are not the same. STRINGS (n,c) gives a string of length n, composed 
of characters "c". It is usefuT~Tor quickly printing strings. C can be an ASCII value or any 
character enclosed by quotes. STRINGS need not be assigned to a variable; you can PRINT STRINGS 
(n,c) for formatted output. 

A$ (n,m) is a string function in other BASICs which should be understood to be able to 
convert programs written in other than Microsoft BASIC. Although it appears to be a 
two dimensional string, it is actually a substring of A$, commencing at character 
n from the start, ending at character m from start. 

LEFT$(A$,m) gives a substring of A$, starting at the left, and of m characters in 
length. Particularly useful in getting input such as YES/NO, which may be input as 
Y/N. E.g. If LEFT$(A$,1)><"Y" THEN... 

RIGHTS (A$,n) gives a substring of A$, starting n characters from the left and con- 
taining all the remaining characters in A$. It can be used after STR$ to get rid of 
the unwanted space that was present in the numeric variable. It can also be used to 
ensure that the expected number of characters has been input by the operator. More 
of this in the instalment concerning checking input, but briefly, if entering a date, 
to allow for either single or double digit entry, i.e. 06 or 6, use: 

1$ = "0" + 1$ : 1$ = RIGHTS (I$,2) 

RIGHTS is also useful for picking the postcode from an address, for sorting, etc. 

MID$(A$,n,m) returns a substring of A$, starting n characters from left, of m charac- 
ters in length. This is probably the most useful of the manipulation functions. 
It allows you to pick off part of a string and match it against another. The Disk 
BASIC function of INSTRING can be simulated. However, its real value lies in input 
checking. Some (your author included) use strings instead of arrays, and it is 
MID$ which allows this. More about this in the more advanced instalment. 

STRING PACKING 

We thought this deserved a mention here, although it is more advanced than the rest of this 
instalment. The idea is use a string as somewhere to keep data of various types. Just as PRINT 
STRINGS (64,65) will print a line of A's very quickly, so can other quite complex characters 
be printed remarkably quickly. Although not as quickly as would machine language, which is 
another use for string packing - to have somewhere to keep a machine language routine without 
needing to protect memory or other complex manoeuvres. More of this aspect in the machine language 
episode. 
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A string can be used as a simple storage location for pieces of data of varying lengths, simply 
by separating the pieces by some known delimiter (such as CHR$(128)), then using the MID$ function 
to retrieve the pieces between the delimiters. 

Incidentally, we have no idea as to why it is called string packing - there's nothing mysterious 
at all involved. 

INKEY $ 

This is a very powerful function for getting input without having to press ENTER. It is a routine 
which scans the keyboard to detect whether a key has been pressed. Since it is so fast, it 
is necessary to create a loop to use INKEY$ effectively. E.g: 

100 A$ = INKEY$: 1FA$ = ""THEN100 

which will wait until a key is pressed (any key) before going on to the following program code. 
As one might expect, the greatest benefit is in checking input, and rejecting it unless it is 
within the expected range. This will be covered later. 

However, one aspect which can cause confusion, whatever the reason for using INKEY$, is that 
the function itself does not retain the value of the key that was pressed. To retain the value 
a variable must be assigned, and re-assigned within the loop every time. Without a variable, 
the program will still wait for a key-press, but you will not be able to use it for an input. 
The INKEY$ is cleared each time it is accessed, so with a little thought it will become clearer. 
It is like a flag which is set/reset on passing. We must admit there is room for confusion, 
so we urge experimentation, as in all things. 

The input from INKEY$ is not usually displayed, but this is just a simple matter of using PRINT 
A$. However, the by-product of this is the use of INKEY$ for a password input, where you do 
not want observers to observe the secrets. Similar to NOECHO in other versions of BASIC. INKEY$ 
can also be used to create a timed input. This facility is also available in disk-BASIC, as 
a real time function of the clock. However, in Level 2 it can be easily created by trial-and- 
error to give the desired time period. Such a routine would be as a subroutine: 

100 FOR I = 1 to 1000 

200 1$ = INKEY$ 

300 IF 1$ = ""THENNEXT:PRINT"TTME UP":ST0P 

400 I = 1000 : NEXT 

Rest of program would follow. The closing of the FOR .... NEXT loop in line 400 is of doubtful 
and debatable significance, and has been the subject of 4 articles that we have read - more 
information in back copies of Adelaide Users' News. However, it does no harm, even if the times 
when it is needed are few. So we follow our earlier-expressed maxim, "when in doubt, do". 

Just because the INKEY$ function returns only a one character input, doesn't mean its use is 
at all limited to this. The string concatenation function can be used: 

100 11$ = INKEY$: IF 11$ = ""THEN100ELSEPRINTI1$; 

200 12$ = INKEY$: IF 12$ = ""THEN200ELSEPRINTI2$; 

300 13$ = INKEY$: IF 13$ = ""THEN300ELSEPRINTI3$; 

400 1$ = 11$ + 12$ + 13$ 

Of course, between these lines could be a timing loop, check for input, etc., and although this 
routine would, by its nature, give the right length input, it would be aborted by (accidental) 
press of the BREAK key. For this reason we have written a routine to provide the disk function 
of LINE INPUT, which we will present later in its proper and expected place. 

If, like us, you have children who just like to practice their typing on the screen, you can 
create a mini -word-processor with shift arrow capabilities by: 10 A$ = INKEY$: PRINT A$;:G0T010 

CONCLUSION 

As a final word, we must implore that input checking is of the most vital significance; while 
you'll have to wait at least 2 issues for the relevant instalment, in the meantime, we suggest 

you use string variables for all input, check it by FOR NEXT and MID$, and convert it if 

necessary to a numeric variable~by VAL. We would have liked to say more on the subject here, 
as we've found it's the single major factor for programs to bomb out, but we have already used 
more space than your Esteemed Editor has allocated us. 

Next episode will be on arrays. Before you have time to tremble in terror, let us point out 
that your telephone book is an array. So is a map, a crossword puzzle; in fact, any groups 
of information. Even multi -storey buildings. 

- 0000000000 - 
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***** PEEKing (UK) by our U.K. Correspondent Tony Fraser ***** 

In this first of a number of articles I am going to introduce myself as the UK Correspondent. 
Although an engineer and physicist by profession, I have studied computing at post-graduate 
level and in my work I do some programming for mainframe machines. My main interest in computing 
these days is, however, my personal home computer which is used as a hobby machine, running 
programmes for geneology (another of my hobbies), post-graduate research and the usual crop 
of computer games. My children are usually the games players, but Dad enjoys them too. I also 
have a special interest in the programming of graphics displays which I enjoy as a challenge. 
My machine is a "Video Genie" (recognised in Australia as a "System 80"). It is modified to 
include a cassette level meter and the '"^' and '4-' keys, and I have fitted an external connection 
to #1 cassette output port for music (noise) output. My output device is a domestic TV, but 
the next piece of equipment on my list is a printer. 

I see my place in this magazine as providing any assistance or service to both UK and other 
readers which can be more conveniently provided by a UK resident. This will be done by writing 
regularly on the '80 scene as viewed from the UK, and by providing a contact point in the UK 
for readers anywhere in the world who may .need UK-based contacts. If I can be of any help, simply 
write to me at the address below. One major task I have agreed to take on is that of providing 
a postbox for programmes by European readers submitted for publication in MICRO-80. These should 
now be sent to me for preliminary vetting and copying onto a single cassette "to be posted to 
the editorial staff in Australia for selection for publication. Your original cassettes will 
then be returned. For those who have not purchased back copies (why not?) and thus may not 
be entirely clear as to the form of submitting programs, I will give brief details. Programs 
should be submitted on cassette only (listings are not necessary and listings only are not accep- 
table). Your covering letter should contain all the information necessary for the running of 
the program and your address. Your name and address should also appear on the program as a 
REM statement. Ideally, the only information which should be necessary to run the program is 
the language, i.e. machine code, BASIC, or TINY PASCAL and Level I or II. Level I programs 
should be written so as to be compatible with both the TRS-80 and the Video Genie units. We 
have received very few programs from our UK readers to date, perhaps due to postage difficulties, 
but now you have no excuse, so get them rolling in. Remember, you get not only fame and immor- 
tality in print, but you also get paid for any published programs. 

Finally, if you think I could be of any help to you, or you see a useful service I could provide 
to the readership in general, drop me a line and let me know. My address is: 

Tony Edwards, 23 Foxfield Close, Northwood, Middx, United Kingdom. 

- 0000000000 - 

***** INSTALLERS FOR LOWER CASE MOD. KITS ***** 

MICRO-80 is seeking experienced technicians or hobbyists in each State, to instal lower case 
mod. kits for our readers. We will publish the names and addresses of installers each month. 
Individual readers should negotiate directly with the installers in their States. Although 
we will only publish the names of installers with adequate credentials (on paper), we can take 
no responsibility for the standard of service or workmanship offered. We ask individual readers 
to inform us of their experiences, good or bad, with the installers on our list and we will 
take appropriate action amend the list, as necessary. 

VICTORIA : Keith Pakenham, 20 Nicholas St. Teesborough, 3173. (03) 798 6162. 

Philip Shufflebotham, 1 Perceval St. Sunbury, 3429. (03) 744 3096. 

NEW SOUTH WALES : Allan Mason, 38 Dresden Ave. Castle Hill, 2154. (02) 680 2538. 

Mr. J. Saxon, 2 Maul don St. Chi f ley, ACT. 2606. 
WESTERN AUSTRALIA : Andrew Smallridge, 22 Ravenhill Drive, Thorn! ie, 6108. 

- 0000000000 - 

********** SOFTWARE SECTION ********** 

***** ARITHMETIC L1/4K by C. Stobert ***** 

Whilst not strictly a teaching program, this program will provide useful practice at addition, 
subtraction and multiplication for 8 - 10 year old children. First, you are given the choice 
of operation to be performed and then you are presented with 10 problems, one at a time. You 
must obtain the correct answer before moving on to the next problem. After the set of 10 problems 
is completed, your score is displayed and the program offers you the opportunity to start again. 
The problems are randomly generated so that each pass will be different from the last. 

1 REM C. STOBERT 

2 REM 21 SHERWOOD CRS. 

3 REM NTH. DANDENONG VIC. 3175 

4 REM 03 795 6590 
10 C. 

20 P. g P. "THIS PROGRAMME IS TO ASSIST YOU 
30 P. "WITH YOUR ARITHMETIC. 
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40 P.sP."DO YOU REQUIRE INSTRUCTIONS ? 

50 Y=1:N=0:I."ENTER <Y> FOR YES OR <N> FOR N0";0 

60 IF0=0C.:G.200 

70 C.:P.sP."YOU DO YOUR PROBLEMS IN THE NORMAL WAY. 

80 P. "WORK INS FROM RIGHT TO LEFT, 

90 P. "ENTERING EACH PART OF THE ANSWER IN TURN. 

100 P. "FOR EXAMPLE, IN THE FOLLOWING PROBLEM :- 

110 P.T. (20), "1 2 3 

120 P.T. (22), "9 7 + 

130 P.T. <20), " 

140 P.T. (21),"? O 

150 P.T. (20),"===== 

160 P. "YOU WOULD ENTER 2 IN THE TENS COLUMN 

170 P. "THEN CARRY 1 TO THE HUNDREDS COLUMN. 

180 G0S.960:C.;P. sP. " GOOD LUCK ! !":P.:P. 

200 I. "WHO IS TAKING THE TEST " : A* 

210 P.sP."WHICH DO YOU WANT (1, 2 OR 3) ? 

220 P. "ADDITION (+)<1> 

225 P. "SUBTRACTION (-)<2> 

230 I."MULTIPLICATION (X)-<3> "sZ 

240 1=1. (Z)sIF(Z<l) + (Z>3)C.sG.210 

250 60S. 970 

280 T=OsR=l 

300 IFZ=1D=R. (499) 

400 IFZ=2D=R. (499) +500 

500 IFZ=3D=R. (Ill) 

510 E=I. (D/100) sF=I. ((D-E*1G0)/10) 

520 G=D-100*E-10$F 

530 IF(Z=1)+(Z=2)H=R. (499) 

540 IFZ=3H=R. (9) 

550 1=1. (H/100) sJ=I. ( (H-IflOO)/10) 

560 K=H-100*I-10« 

570 C.sP.AT76,"N0W "5 A* 

580 P.AT146,sG0S.800 

590 A=0:B=OsC=0 

600 IFE>0P. AT285,E 

610 IF(F>0)+(E>0)P.AT287,F 

620 P. AT289, Ss IFI >0P. AT349, I 

630 IF(J>0)+(I>0)P.AT351,J 

640 P.AT353„K?" " ; B$ 

650 F.Y=414T0418sP.ATY,"-"sN.Y 

660 F . Y=542T0546 s P . ATY , " = " : N . Y 

670 P.AT481, s I. As 60S. 2020 

680 P. AT479, : I . Bs 60S. 2010s GOS. 900s IFL< 100G. 700 

690 P.AT477, s I. Cs GOS. 2000 

700 T=T+ 1 s GOS . 930 s I FL=MP . AT720 , s GOS . 850 s X= 1 s 6 . 720 

710 P.AT720,"S0RRY "sA*s" TRY AGAIN" sX=0 

720 G0S.960sIFX=lR=R+ls IFR>10G. 1000 

730 IFX=lC.s6.300 

740 G.570 

800 Y=R. (3) :0NY6.810,820,830 

810 P. "SEE HOW YOU DO" s RET. 

820 P. "HAVE A TRY AT THIS"sRET. 

830 P. "NEXT PROBLEM"! RET. 

850 Y=R . ( 3 ) s ON YG . 860 , 870 , 880 

860 P. "WELL DONE ":A*sRET. 

870 P. "KEEP UP THE GOOD WORK "sA*sRET. 

880 P. "GOOD EFFORT "*A$sRET. 

900 IFZ=lL=D+HsRET. 

910 IFZ=2L=D-HsRET. 

920 IFZ=3L=D*HsRET. 

930 M=A+10*B+100*C:RET. 

960 P.AT896,s I. "PRESS < ENTER > TO CONTINUE ";B* 

970 IF Z=lB*="+"sRET. 

980 IFZ=2B$="-"sRET. 

990 IFZ=3B$="X"sRET. 

995 RET. 

1000 C.:P.sP."THAT IS 10 PROBLEMS ";A$ 

1010 P. s P. "YOU HAD" ; T? "TRIES 

1020 P. "WHICH GAVE YOU A MARK OF"p 

1030 P. (l-(T-10)/10)f 1005"7. 

1040 P.sP."IF YOU WOULD LIKE TO TRY AGAIN ENTER <1> 

1050 I. "IF NOT ENTER <2> "?0 

1060 C.sIF0=lG.210 

1070 P. "NOW "|s6.200 

2000 P.AT477,C 

2010 P.AT479,B 

2020 P.AT481,A 

2030 RET. 
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SORTING L1/4K by Hubb Sanders ***** 



This is the first program we have published from a rparW in Hnii an< i T u ■ 



ENTER 4 3 2 1 
Program now displays, one line at a time: 

PASS 1 SORT 1 3 4 2 1 

PASS 1 SORT 2 3 2 4 1 

PASS 1 SORT 3 3 2 14 

PASS 2 SORT 1 2 3 14 

PASS 2 SORT 2 2 13 4 

PASS 3 SORT 1 12 3 4 

DONE 

ONCE MORE (1 = YES 2 = NO)? 

low numbers will move gradually up the column, rather like a?r bubbles ?n If ish tank. 

The program conmences by requesting the total number of inputs From 8 to 1? inra.t* *™ n, n .» 
useful for demonstrating the sort routine - linos lpn =„rf c^i • * j to I <! inputs are most 
enable you to follow the' pr^r^Jtiprogrm^f^^^^^ how f^n^ 5 *° 
can function, delete both these lines. how fast the P ro 9 ram 

5 C.sP.AT460 5 "HUBB SANDERS 

6 P.AT524 ? "LUTTERSWEG 36 

7 P.AT588*"7782 TA DE KRIM 

8 P. AT652, "NETHERLANDS 

9 F.B=lTOIOOOsN.B 

10 C. 

15 P.AT409,"SQRT DEMONSTRATION 

16 F.Z=lT01500sN.Z 

?? p'^-^LSr ALL ™ S Y ° U T ° INPUT A TERTIAN AMOUNT 

11 l"l- ° F NUMB ERS AFTER WHICH THE COMPUTER WILL START SORTING 

22 P. S P„"WHEN EVER A NUMBER IS MOVED THE PASS WILL BE DISPLAYED " 

23 P„ S P„»TO FREEZE THE DISPLAY HOLD DOWN THE <r"t KEY DISPLAYED " 

24 P.AT860,"HIT <ENTER> TO START"* -I A* 
30 C. 

35 P.AT64 ? "H0W MANY NUMBERS DO YOU WISH TO INPUT"- « T o 

36 IFQ<2P="IT'S NOT EASY TO SORT THAT MANY""G 35 
40 C. S F.K=1T0Q 

45 P.AT450,"INPUT NUMBER" ; K§ s I . A <K) s C 

50 F.Z=1TOK-1:IFA(Z)OA(K)N.Z 

55 IFZ=KG.70 

60 P. "YOU'VE ALREADY ENTERED" ; A <K) s G. 45 

70 N.K 

80 F.K=1T0Q-1:F.L=1T0Q-1 

90 IFA(LXA(L+1)G.120 

100 P=A<L)sA(L)=A<L+l)sA(L+l)=P 

110 G0S.500 

120 N.L 

125 F.Z=lT0500sN.Z 

130 N=K 

135 P.sP.T. (30) , "DONE 

136 P. T. (20) , "ONCE MORE ( 1=YES 2=N0) " s * I . R 

137 IFR=1G.30 

138 END 

500 P."PASS" 5 K?" SORT" ? L|" " ? 

510 F„X=1T0Q 

520 P.L (5>,A(X); 

530 N=X 



545 X=X*Q 

546 F o Z=lT.250gN.Z 
550 RET. 
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***** NORMAL DISTRIBUTION LII/16K (c) T.R. Jones ***** 

LOADING INSTRUCTIONS. 

To load the program from cassette, answer MEMORY SIZE? (READY?) by pressing ENTER/NEWLINE. 
Then type CLOAD"N" and press ENTER/NEWLINE. When the program has loaded type RUN and press 
ENTER/NEWLINE. 

INTRODUCTION. 

This month sees the start of a series of scientific programs written by an author working in 
a scientific field. This first one is one of the most basic, yet one of the most important 
and widely used of statistical tools. Many statistical procedures begin with the assumption 
that data under study approximates this distribution. The normal distribution is such that 
if one were to plot frequency per class against a range of classes for a given set of observations, 
e.g. (butterfat production per cow for a dairy herd), then the resulting curve would be approxi- 
mately bell shaped, having a high point near the middle representing the most common class, 
sloping off rather symmetrically on either side to the rare exceptional classes on either end. 
From such a distribution, a series of useful statistical parameters arise. This program will 
compute these parameters, known as the mean, variance, standard deviation, standard error and 
the range. The program will accept up to 100 data values for analysis. Following entry of 
data, values are displayed for verification and an option to edit entries is given. Having 
entered all the data correctly, the parameters described are computed and displayed on the screen. 
Here is a brief definition of the parameters. 

1. MEAN - mathematical or arithmetic average of the data set. 

2. VARIANCE/STANDARD DEVIATION - two ways by which the variability of data about the mean is 
described. 

3. STANDARD ERROR - an estimate of the variability of the mean of the data set from the mean 
of the population from which the data was drawn. 

4. RANGE - is simply the lowest and highest values between which all the data occur. 
Simply respond to the program prompts for each type of input. 



10 'ROUTINE TO CALCULATE ST AST I CS IN RELATION TO THE NORMAL DISTRIBUTION. 

20 '(C) COPYRIGHT 1980, TERRY JONES, 43 HAST IE STREET TATURA, 3616. 

60 CLSsDEFINTI-NsDIMX(lOO) «,F(10) 

70 PR I NTTAB (18)" NORMAL D I STR I BUT I ON ANAL YS IS": 

PRINTTAB ( 18) STRING* (28, 45) 
80 PR I NT SPRINT: PR I NTTAB (26) "ENTER DATA" : PRINTs PRINTTAB ( 13) 

"NUMBER OF DATA POINTS - MAXIMUM IS 100" 
90 PR I NTTAB ( 28 ) " * " ; s I NPUTND : I FND< 20RND > 1 00 

PR I NTCHR* ( 27 ) ; CHR$ ( 30 > ; CHR$ ( 29 ) p CHR§ ( 27 ) s G0TQ90 
100 PRINTS F0RI=1T0ND; PRINTTAB (27) "XCjIj") =" ? s INPUTX ( I ) s NEXTI 
110 CLS s K=0 : PR I NTTAB ( 25 ) " DATA ENTERED " s FOR 1 = 1 TOND s K=K+ 1 s 

PRINTTAB (26) "X("s Is ") =";X<I) : 

IFK<10NEXTIEL3EPRINT3977 J "TYPE < ENTER > TO CONTINUE ...";; 

INPUTI*s K=Os CLSs NEXTI 
120 PRINTS>983 ? "EDIT DATA (Y/N)"s 
130 I$=INKEY*s IFI*=" "THEN130ELSEIFI*="Y"THEN140ELSEIFI*="N" 

THEN 150ELSE 130 
140 CLSs INPUT "DATA POINT TO BE EDITED"|Is 

IFI>NDTHEN140ELSEPRINT"X("s Ip") = M ;X(I): 

PRINTTAB (32) CHR$ (27) s "NEW X ( " s I % " ) = "; s INPUTX ( I ) : 

G0T0110 
150 CLSs PRINT3473, "COMPUTING 
160 Xl=OsX2=OsFORI=lTONDsXl=Xl+X(I) sX2=X2+(X(I) C2)sNEXTIs 

X3=Xl/ND:X4=X2-(XlC2/ND)sX5=X4/(ND-l) s X6=SQR (X5) s X7=X5/ND 
170 R1=X(1) sR2=X(l) sFORI=lTOND:IFX(IXRlTHENRl=X(I)sNEXTI 

ELSEIFX ( I ) >R2THENR2=X ( I ) s NEXTIELSENEXTI 
180 CLSs PRINTS PRINT"MEAN ="sX3s PRINTs 

PR I NT "VARIANCE ="5 X5s PRINTs 

PR I NT "STANDARD DEVIATION =" ? X6s PRINTs 

PR I NT "STANDARD ERROR ="? X7s PRINTs 

PRINT"RANGE =" 5 Rl 5 "TO" s R2s PRINT 
190 END 
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***** 



LOADING INSTRUCTIONS. 



DISASSEMBLER LII/16K ( c ) Gregg Nott ***** 



as 1 i sted and 



r«vr h1 Jt P r° 9 ? m 1 S J" 61 " 9 typed in from the magazine, type it in * EXACTLY 

When the program has loaded type RM and I press ENTER/NEMlTne!^ a " d Pr " S ENTER «™-INE. 

INTRODUCTION. 

™i\rZT^U°£Zl ^t r t d ire Z 1°80 mn irrSio f „ r °s m et a,,y i f^Lfd Tn^ ^ '" ^ " 

ROM and dedicatee addresses S. EsoT Ts.SKTed b T e hp dl f ss ™ bled - «" ^side. NaturalTy 
startinq address in decimal L,,^tL„ i • - . The P r0 9rem commences by asking for a 

displayed of the video screen ?he current 'addre^f fT 9 ?*■ 'l"*™**" P"" "■*. are then 
tor/l^rV^ 81 C °" te " tS ^™ ft^he ] sSttr' A 1 S feat re ed of 0n the he progrJ1s 

?^£ ad S5-- :«£^ -r- ««r ^ nt rrl= i 

runders^X'oTi^peretioT P RE^Ti nls ^STid*^ i « tertl *> »S*™ut1nes and to facilitate 

program a^hen' ^program Is' re^eT Vs^LTrTeT, V\o^\S% '^ * the ^} C 
of next week!) A routine calculates the correct Tine n,j£T,Z, 1 *l U ? elf ™ t0 the middle 
storage area immediately after the GOSUB °okfn Thi f , • ,° KES the ValUeS 1Rt0 the P ro 9 ram 
in the listing before it has been RUN explains the GOSUB XXXX statements found 

You may set the MEMORY SIZE to either of th» f n ii™,-i„„ ...i 

program: ot the fol '°wmg values to protect your high memory m/1 

With REM lines in place (as listed) set to - 27740 
With REM lines removed set to - 27000 

stVt 0U usint^ ™ d o". otherwise skip the rest and 

of the program as 1t resld* In the ^proqram orlT"" Vo?^" 6 that modifies a section 
manipulates only two areas of Itself P °n Tine,^ «»h ?V'%«. 42E9 u and UpWards * The P ro 3 ram 
standard BASIC the GOSUB statement must e f L h 50 after the BASIC GOSUB tokens. In 

the self modifying routine allows the argument of Xm^nT"*' *'*.'£ U " e nUmDer - In effect > 
In lines 20 and 50 GOSUB becomes a conditTonal V^tpS M be a variable under program control, 
somewhat similar to the ON X GOSUB statement! Statement Wlth mul ^Ple branchings, with a structure 

DISASSEMBLER commences by reauestinn a c t art ; rn ,^j 

Using the given value as a Tofnter, the procr'am starts J™^ d1 "««*Jy will commence, 

must be the FIRST byte of a valid I instruction 1 hZI k^" 9 -^ memory (note: this value 

ization). The PEEKed value is procewe^ thr0Wn out of synchron- 
storage area in line 20. There a7e 255 oossiM^ h^thl"? "l?' 2 ^ ,* hat mdif y the Program 

ponding to all possible first byte vLT ar T V™ 1° ( J ineS 100 °- 15 10> "orres- 

is set by eyery line that is branch to t*n ""able L the length of instruction indicator, 

Upon branching^ the appropr ate Z 80 Series ^^wi™ .3 ^ ° f the Z ~ 80 miction.' 
subroutines to PRINT data rplativp rf .-,„S \ ae _, PRI J N J Ted and calls are made to appropriate 
Program flow then returns ^ addresses associated with the instruction? 

L) and a call is made to a subroutine that PRINTs \Z ^"^nr pointer is incremented (variable 
(lines 10000-10010). ne tnat PRINTs tne machine codes representing the instruction 

Jr^ are 4 conditional exits from the primary 
that commence with a CB,DD ED and ^bn^u^'T^^^ nUBber ° f Z " 80 Instruction^ 

self modifying loop that branches from Mine %n jfW ? instructions all use a secondary 

of simple algorithms (lines 10020-10220) ho i' • I G J? lnstruc ti°"s are handled by a number 

byte in the instruction to proce^ brf^ °T USe the PEEKed value of the SEC °N° 

50 (certain DD and FD 4 byte indexed i^truct^ fr ° m the G ° SUB in line 

in order to differentiate between instructions) ytG ° f the instruction 



2119 - 


2130 


2150 




3000 - 


3010 


4000 - 


4700 


5000 - 


5120 


5200 - 


5230 


10000 - 


10010 


10012 - 


11100 


12000 - 
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SUBROUTINES, SIGNIFICANT VARIABLES AND PROGRAM BLOCKS. 

PROGRAM LINES SUBROUTINES 

CALCULATES BRANCHING LINE NUMBER. 
POKES LINE NUMBER INTO PROGRAM. 
PRINTS CURRENT ADDRESS IN HEX. 

4 SUBROUTINES FOR PRINTING DATA OR ADDRESS ASSOCIATED WITH INSTRUCTIONS. 
DECIMAL TO HEXADECIMAL CONVERSION. 
CALCULATING & PRINTING DISPLACEMENT VALUES. 
PRINT MEMORY ASSOCIATED WITH INSTRUCTION. 
PEEK AT 2ND BYTE OF DD/ED/FD INSTRUCTIONS. 

ERROR TRAPPING ROUTINE FOR DETECTING UL ERRORS RESULTING FROM CB/DD/ED/FD 
DATA VALUES. 

MAJOR VARIABLES. 

Z PEEKed memory address 

A Decimal value of variable Z (memory content) 

L Length of instruction indicator 

K Video display line counter 

C$ Output from dec-hex conversion 

E Input to Dec-hex conversion 

M Pointer to program storage area where line number will be POKEd (Y1/Y2/Y3/Y4) 

Y$ Variable A converted to GOSUB line number. 

MAJOR PROGRAM BLOCKS/POINTS 

1000 - 1510 PRIMARY LOOP PRINT LINES 

2005 STARTING POINT OF PRIMARY LOOP 

1442 - SETUP DD INSTRUCTION SECONDARY LOOP 

1506 - SETUP FD INSTRUCTION SECONDARY LOOP 

8000 - 8010 SETUP ED INSTRUCTION SECONDARY LOOP 

6064 - 6187 ED INSTRUCTION PRINT LINES 

7009 - 7249 DD AND FD INSTRUCTION PRINT LINES 

10020 - 10220 CB INSTRUCTION PROCESSING 



10 CLEAR! 00 sCLS 

15 DEFINTA-ZsL=0sK=0sG0SUB2000 

18 G0T02005 

20 GOSUBXXXX 

25 I FA >62ANDA< 1 94THENL= 1 

30 G0SUB10000sZ=Z+LsG0TQ2005 

50 GOSUBXXXX 

60 RETURN 

100 REH t* Z80 DISASSEMBLER BY GREG NOTT 20/2/80 ** 

1 000 L= 1 s PR I NT " NOP " ? : RETURN 

1002 L=3sPRINT"LD BC , " 5 : GOSUB4500 : RETURN 

1004 L=lsPRINT"LD (BC) , A"; s RETURN 

1006 L=l SPRINT" INC BC" is RETURN 

1008 L=l SPRINT" INC B" 5 s RETURN 

1010 L=ls PRINT"DEC B"s: RETURN 

1012 L=2sPRINT"LD B ? " ; s G0SUB4000s RETURN 

1014 L=lsPRINT"RLC A" ss RETURN 

1016 L=lsPRINT"EX AF S AF* " ? s RETURN 

1018 L=lsPRINT"ADD HL 9 BC" s s RETURN 

1020 L=lsPRINT"LD A ? (BC) " s s RETURN 

1022 L= Is PR I NT "DEC BC"ss RETURN 

1 024 L = 1 s PR I NT " I NC C " ; s RETURN 

1026 L=lsPRINT"DEC C"?s RETURN 

1 028 L=2 s PR I NT " LD C , " s s 60SUB4000 s RETURN 

1 030 L= 1 s PR I NT " RRC A " 5 s RETURN 

1 032 L=2 s PR I NT " D J NZ " ? s G0T05200 

1034 L=3sPRINT"l_D DE ," 5 s G0SUB4500 s RETURN 

1036 L=lsPRINT"LD (DE) 9 A" ; s RETURN 

1038 L=l sPRINT" INC DE " 5 s RETURN 

1040 L=l sPRINT" INC D"ps RETURN 

1042 L= Is PR I NT "DEC D"ss RETURN 

1 044 L=2 s PR I NT " LD D , " ? s GOSUB4000 s RETURN 

1046 L=lsPRINT"RL A" ;s RETURN 

1048 L=2;PRINT"-JR "p=GOT05200 

1050 L=1-PRINT"ADD HL ? DE " 5 s RETURN 

1052 L=lsPRINT"LD A, (DE) " 5 sRETURN 
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054 L=l sPRINT "DEC DE"ps RETURN 

056 L=l SPRINT" INC E"?sRETURN 

058 L=l SPRINT "DEC E";: RETURN 

060 L=2sPRINT"LD E, " p s G0SUB4000s RETURN 

062 L=lsPRINT"RR A" ps RETURN 

064 L=2s PRINT" JR NZ " ? s G0T05200 

066 L=3sPRINT"LD HL ? " ? s GOSUB4500s RETURN 

068 L=3sPRINT"LD ( " ; s 60SUB4500s PRINT" ), HL"s s RETURN 

070 L=l SPRINT" INC HL"?s RETURN 

072 L=l sPRINT" INC H"ps RETURN 

074 L=l SPRINT "DEC H"?s RETURN 

076 L=2sPRINT"LD H ? " p s G0SUB4000s RETURN 

078 L= 1 s PR I NT " DAA " ? s RETURN 

080 L=2 s PR I NT " JR Z " s s 60T05200 

082 L=l sPRINT "ADD HL, HL" ? s RETURN 

084 L=3 s PR I NT " LD HL , ( " ? s G0SUB4500 s PR I NT " ) " ; S RETURN 

086 L= Is PR I NT "DEC HL"?s RETURN 

088 L=l sPRINT" INC L"ps RETURN 

090 L=l sPRINT "DEC L"?s RETURN 

092 L=2sPRINT"LD L, "s :G0SUB4000s RETURN 

094 L= 1 s PR I NT " CPL " p s RETURN 

096 L=2sPRINT"JR NC " p : 60T05200 

098 L=3sPRINT"LD SP, " p s G0SUB4500s RETURN 

100 L=3 s PR I NT " LD (»;: G0SUB4500 s PR I NT " ) , A " s s RETURN 

102 L=l sPRINT" INC SP"ps RETURN 

104 L=l sPRINT" INC (HL) "? s RETURN 

106 L=lsPRINT"DEC (HL) " p s RETURN 

108 L=2sPRINT"LD (HL) ," p s G0SUB4000 3 RETURN 

110 L=lsPRINT"SCF" ss RETURN 

112 L=2s PRINT" JR C " p s G0T05200 

114 L=l sPRINT" ADD HL , SP " s s RETURN 

116 L=3sPRINT"LD A, ( "s s 60SUB4500s PRINT") "p s RETURN 

118 L=lsPRINT"DEC SP"ss RETURN 

120 L=l sPRINT" INC A" ss RETURN 

122 L=lsPRINT"DEC A" ss RETURN 

124 L=2sPRINT"LD A s "? s GOSUB4000s RETURN 

1 26 PR I NT " CCF " 5 s RETURN 

128 PRINT"LD B,B"ss RETURN 

130 PRINT"LD B,C"s s RETURN 

132 PRINT"LD B,D"ps RETURN 
134 PRINT"LD B ? E "? s RETURN 
136 PRINT"LD B,H"? 3 RETURN 
138 PRINT"LD B s L"ssRETURN 
140 PRINT"LD B, (HL) "s s RETURN 
142 PRINT"LD B 5 A" ss RETURN 
144 PRINT"LD C„ B"? sRETURN 
146 PRINT"LD C,C"ps RETURN 
148 PRINT"LD C 5 D"p 3 RETURN 
150 PRINT"LD C, E" s s RETURN 
152 PRINT"LDC,H" ss RETURN 
154 PRINT"LD C,L"ps RETURN 
156 PRINT"LD C, (HL) " p 5 RETURN 
158 PRINT"LD C, A" ps RETURN 
160 PRINT"LD D, B" 3 s RETURN 
162 PRINT"LD D s C"ss RETURN 
164 PRINT"LD D, D" s s RETURN 
166 PRINT"LD D , E " 3 a RETURN 
168 PRINT"LD D,H"ssRETURN 
170 PRINT"LD D,L"p 3 RETURN 
172 PRINT"LD D, (HL) "? s RETURN 
174 PRINT"LD D , A "? s RETURN 
176 PRINT"LD E,B"ssRETURN 
178 PRINT"LD E ? C " s 3 RETURN 
ISO PRINT"LD E,D"?sRETURN 
182 PRINT-LD E,E"? 3 RETURN 
184 PRINT"LD E,H"? 5 RETURN 
186 PRINT"LD E,L"ssRETURN 
188 PRINT-LD E 5 (HL) "3 s RETURN 
190 PRINT"LD E 9 A" ss RETURN 
192 PRINT-LD H,B"ssRETURN 
194 PRINT"LD H 5 C" 5 s RETURN 
196 PRINT"LD H s D"ps RETURN 
198 PRINT"LD H P E"psRETURN 
200 PRINT-LD H,H"?s RETURN 
202 PRINT"LD H , L " p s RETURN 
204 PRINT"LD H, (HL) "p 3 RETURN 
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1206 PRINT"LD H, A";: RETURN 
1208 PRINT"LD L,B";: RETURN 
1210 PRINT"LD L,C"s: RETURN 
1212 PRINT"LD L,D"s: RETURN 
1214 PRINT"LD L,E":s RETURN 
1216 PRINT"LD L , H ";: RETURN 
1218 PRINT"LD L,L";: RETURN 
1220 PRINT"LD L, (HL) " : s RETURN 
1222 PRINT"LD L, A" ; :RETURN 
1224 PRINT"LD (HL) ,B" s : RETURN 
1226 PRINT"LD <HL> , C" ; : RETURN 
1228 PRINT"LD (HL) , D" ; s RETURN 
1230 PR INT" LD (HL) , E" ; s RETURN 
1232 PRINT"LD (HL) , H" : s RETURN 
1234 PR INT" LD (HL) , L" ;s RETURN 
1 236 PR I NT " HALT " 5 : RETURN 
1238 PR INT" LD (HL) , A" 5 sRETURN 
1240 PRINT"LD A 5 B";s RETURN 
1242 PRINT"LD A, C" 5: RETURN 
1244 PRINT"LD A, D";: RETURN 
1246 PRINT"LD A ? E"5:RETURN 
1248 PRINT"LD A, H"ss RETURN 
1250 PRINT"LD A , L "; s RETURN 
1252 PRINT"LD A, (HL) ": :RETURN 
1254 PRINT"LD A, A";: RETURN 
1256 PRINT"ADD A, B";: RETURN 
1258 PR I NT "ADD A, C" 5 s RETURN 
1 260 PR I NT " ADD A s D " 5 : RETURN 
1262 PR I NT "ADD A , E " 5 s RETURN 
1 264 PR I NT " ADD A , H " ; s RETURN 
1266 PR I NT "ADD A , L "; s RETURN 
1268 PRINT-ADD A, (HL) " 5 : RETURN 
1270 PR I NT "ADD A „ A " 5 s RETURN 
1 272 PR I NT " ADC A , B " ? s RETURN 
1274 PR I NT "ADC A, C" : s RETURN 
1276 PR I NT "ADC A, D";: RETURN 
1278 PR I NT "ADC A, E" ; : RETURN 
1 280 PR I NT " ADC A , H " 5 s RETURN 
1282 PR I NT "ADC A, L" ; s RETURN 
1284 PRINT"ADC A ? (HL) "5 : RETURN 
1286 PR I NT "ADC A,A"ssRETURN 
1288 PR I NT "SUB B";s RETURN 
1290 PR I NT "SUB C"?s RETURN 
1292 PR I NT "SUB D"?s RETURN 
1294 PR I NT "SUB E";: RETURN 
1296 PR I NT "SUB H"?s RETURN 
1298 PR I NT "SUB L"?s RETURN 
1 300 PR I NT " SUB ( HL ) " ; : RETURN 
1302 PR I NT "SUB A"; s RETURN 
1304 PRINT-SBC A, B";: RETURN 
1306 PR I NT "SBC A, C" 5s RETURN 
1308 PR I NT "SBC A, D" 5 s RETURN 
1310 PRINT"SBC A ? E";sRETURN 
1312 PRINT"SBC A s H" 5 3 RETURN 
1314 PRINT"SBC A,L"5:RETURN 
1316 PRINT"SBC A, (HL) " ; : RETURN 
1318 PRINT"SBC A,A"?sRETURN 
1320 PR I NT "AND B" 35 RETURN 
1322 PR I NT "AND C" : s RETURN 
1324 PR I NT "AND D";s RETURN 
1 326 PR I NT " AND E " 5 s RETURN 
1 328 PR I NT " AND H " s s RETURN 
1330 PR I NT "AND L";: RETURN 
1 332 PR I NT " AND ( HL ) " ; s RETURN 
1334 PR I NT "AND A" 5 s RETURN 
1336 PRINT-XOR B"s: RETURN 
1338 PRINT"XOR C";:RETURN 
1340 PRINT" XOR D" 5 s RETURN 
1342 PR INT "XOR E" 5 s RETURN 
1344 PRINT-XOR H"ss RETURN 
1346 PRINT" XOR L"§s RETURN 
1348 PRINT-XOR (HL) "5 s RETURN 
1350 PRINT"XOR A"?sRETURN 
1352 PR I NT "OR B" 5 s RETURN 
1354 PR I NT "OR C" 5: RETURN 
1356 PR I NT "OR D" 5 s RETURN 
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1 358 PR I NT " OR E " ; s RETURN 

1360 PR I NT "OR H";: RETURN 

1362 PR I NT "OR L"s s RETURN 

1364 PR I NT "OR <HL) "; 3 RETURN 

1366 PR I NT "OR A" ss RETURN 

1368 PRINT"CP B" ; s RETURN 

1370 PRINT"CP C" 5: RETURN 

1372 PRINT"CP D" 3 3 RETURN 

1374 PRINT"CP E" 5 s RETURN 

1376 PRINT"CP H" ? s RETURN 

1378 PRINT"CP L" ; s RETURN 

1380 PRINT"CP <HL>" 5 : RETURN 

1382 PRINT"CP A"? s RETURN 

1384 PRINT"RET NZ"ssRETURN 

1386 PR I NT "POP BC" j ; RETURN 

1388 L=3sPRINT"JP NZ, " s s G0SUB4500s RETURN 

1390 L=3sPRINT"JP » s. s GOSUB4500 : RETURN 

1 392 L=3 s PR I NT " CALL NZ , " s 5 G0SUB4500 : RETURN 

1394 L=l SPRINT "PUSH BC"s 3 RETURN 

1 396 L=2 s PR I NT " ADD A , " 5 s G0SUB4000 s RETURN 

1398 L=lsPRINT"RST O" 5 s RETURN 

1400 L=l sPRINT "RET Z"s: RETURN 

1402 L=lsPRINT"RET"ss RETURN 

1404 L=3sPRINT"JP Z, "5 s G0SUB4500: RETURN 

1406 GOTO 10020 

1408 L=3 sPRINT "CALL Z, " 3 : G0SUB4500s RETURN 

1410 L=3 sPRINT "CALL "s s G0SUB4500s RETURN 

1412 L=2 sPRINT "ADC A, "s s G0SUB4000s RETURN 

1414 L=lsPRINT"RST 8"ssRETURN 

1416 L=lsPRINT"RET NC'psRETURN 

1418 L=lsPRINT"POP DE" ss RETURN 

1420 L=3sPRINT"JP NC, " ; s G0SUB4500s RETURN 

1422 L=2 s PR I NT "OUT " s s G0SUB4000s PRINT" , A" ; s RETURN 

1 424 L=3 s PR I NT " CALL NC , " s s G0SUB4500 s RETURN 

1426 L=l sPRINT "PUSH DE"ss RETURN 

1428 L=2 sPRINT "SUB "s s G0SUB4000s RETURN 

1430 L=lsPRINT"RST 10" ss RETURN 

1432 L=lsPRINT"RET C";s RETURN 

1434 L=l sPRINT"EXX" 3 s RETURN 

1436 L=3sPRINT"JP C, " s s G0SUB4500s RETURN 

1438 L=2s PRINT" IN A, " p s G0SUB4000s RETURN 

1440 L=3 sPRINT "CALL C, " s sG0SUB4500s RETURN 

1 442 G*= " I X " a P$= " ( I X+ 1 ND ) " s GOSUB 1 1 000 s Y*=R I GHT* ( STR^ ( F+7000 ) 4 ) 

1443 G0SUB2110sri=17231 B GQSUB2150s60T050 ' 

1 444 L=2 s PR I NT " SBC A,";: G0SUB4000 s RETURN 
1446 L=lsPRINT"RST 18" 5 sRETURN 

1448 L=l sPRINT "RET PO"?s RETURN 

1450 L=l sPRINT "POP HL" 5 3 RETURN 

1452 L=3sPRINT"JP PO, " ; s G0SUB4500s RETURN 

1454 L=lsPRINT"EX (SP) , HL" 3 s RETURN 

1 456 L=3 s PR I NT " CALL PO , " s 3 G0SUB4500 1 RETURN 

1458 L=l s PR I NT "PUSH HL" 5 s RETURN 

1460 L=2 sPRINT "AND " s 3 G0SUB4000s RETURN 

1462 L=lsPRINT"RST 20" ss RETURN 

1464 L=l sPRINT "RET PE"ss RETURN 

1466 L=lsPRINT"JP ( HL )" ; s RETURN 

1468 L=3sPRINT"JP PE ? " s s G0SUB4500s RETURN 

1470 L=lsPRINT"EX DE, HL" 5 s RETURN 

1472 L=3s PRINT-CALL PE, "s s GOSUB4500s RETURN 

1474 G0T08000 

1476 L=2sPRINT"X0R '■ s 3 G0SUB4000 s RETURN 

1478 L=lsPRINT"RST 28" 33 RETURN 

1480 L=l sPRINT "RET P"ss RETURN 

1482 L=l s PR I NT "POP AF" 5 s RETURN 

1484 L=33PRINT"JP P, » 5 3 G0SUB4500s RETURN 

1486 L=lsPRINT"DI"ssRETURN 

1488 L=3 s PR I NT "CALL P ," 3 s 60SUB4500 s RETURN 

1490 L=l s PR I NT "PUSH AF"ss RETURN 

1492 L=2sPRINT"0R " 3 5 G0SUB4000 s RETURN 

1494 L=lsPRINT"RST 30 "53 RETURN 

1496 L=l s PR I NT "RET M"ss RETURN 

1498 L=lsPRINT"LD SP , HL "; 3 RETURN 

1500 L=3sPRINT"JP M s "s SG0SUB4500 5 RETURN 

1502 L=l 3 PRINT"EI" 5 s RETURN 

1504 L=3 s PR I NT "CALL M, "; SG0SUB4500 3 RETURN 

1506 G$=» IY" 3 P*=» < I Y+IND) " 3 60SUB1 1000s Y*=RIGHT* <STR$ <F+7000> , 4) 
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1 507 G0SUB2 1 1 s M= 1 723 1 : G0SUB2 1 50 s GOT050 

1508 L=2:PRINT"CP "; s GDSUB4000: RETURN 
1510 L=1:PRINT"RST 38";: RETURN 

2000 INPUT "ENTER STARTING ADDRESS" ; Zs CLS; RETURN 

2002 ONERRORGOTO 1 2000 s RETURN 

2005 I FK=14THEN INPUT "PRESS ENTER TO CONTINUE"; A* s CLS sK=0 

20 1 A=PEEK ( Z ) : K=K+ 1 : Y*=R I GHT* ( STR* < A*2+ 1 000 ) , 4 ) 

2020 G0SUB2 1 1 O : M= 1 7 1 78 : G0SUB2 1 50 : V=Z : GOSUB3000 s G0T020 

2099 REM ** DETERMINE WHAT TO POKE ENTRANCE Y* ** 

2110 Y1*=RIGHT* < Y*, 1 ) s Y2*=MID* < Y*, 3, 1 ) 

2120 Y3*=MID* <Y*, 2, 1 ) : Y4*=LEFT* <Y*, 1 ) 

2130 Y 1 = ASC < Y 1 * ) : Y2=ASC < Y2* ) : Y3= ASC ( Y3* ) : Y4=ASC ( Y4* ) s RETURN 

2149 REM ** POKE IT >M< =START ** 

2 1 50 POKEM , Y4 ! POKEM+ 1 , Y3 : POKEM+2 , Y2 : POKEM+3 , Y 1 : RETURN 

2999 REM ** PRINT CURRENT ADDRESS ** 

3000 A1=V/256:A2=V-A1*256 

30 1 E= A 1 s G0SUB5000 : PR I NTC* ; s E=A2 s G0SUB5000 s PR I NTC* , , s RETURN 

3999 REM ** PEEK & PRINT A SINGLE BYTE ** 

4000 E=PEEK < Z+ 1 ) : G0SUB5000 : PR I NTC* ; s RETURN 

4499 tfEM ** PEEK fc PRINT A DOUBLE BYTE ** 

4500 E=PEEK ( Z+2 ) s G0SUB5000 5 PR I NTC* ; s G0SUB4000 s RETURN 

4599 REM ** PEEK & PRINT DOUBLE BYTE FROM 4 BYTE INSTR. ** 

4600 E=PEEK < Z+3) s 60SUB5000 : PR I NTC* ; : E=PEEK < Z+2) s G0SUB5000 
4610 PR I NTC* ; s RETURN 

4699 REM ** PEEK & PRINT SINGLE BYTE FROM 4 BYTE INSTR. tt 

4700 E=PEEK < Z+3 ) : G0SUB5000 s PR I NTC* ; : RETURN 

4999 REM ** DEC. TO HEX. CONVERSION tt 

5000 C*= " " : B=E/ 1 6 s D=B : I FB >9THEN5050ELSEC*=R I GHT* ( STR* ( B ) , 1 > 
5020 X =E-B *16:D=X:IFX >9THEN5050ELSEC*=C*+R I GHT* ( STR* < X ) , 1 ) 
5030 RETURN 

5050 0ND-9GQT05060, 5070,5080, 5090,5100, 51 10 

5060 C*=C*+ " A " s G0T05 1 20 

5070 C*=C*+"B ,, sG0T05120 

5080 C*=C*+"C":GQT05120 

5090 C*=C*+ " D " s G0T05 1 20 

5 1 00 C*=C*+ " E " s G0T05 1 20 

5110 C*=C*+"F" 

5120 I FLEN ( C* ) =2THENRETURNELSEGOT05020 

5199 REM ** CALCULATING & PRINTING DISPLACEMENTS (JR INSTR.) * 

5200 V=PEEK < Z+ 1 ) : I =Z s I FV > 1 27THENGOT05220ELSEV 1 = I +V+2 s G0T05230 
5220 Vl=I+(V-256)+2 

5230 PRINT" ";sV=Vl:G0SUB30005G0T030 
5999 REM ** PRINT ED INSTRUCTIONS tt 

6064 PRINT" IN B, (C) ";: RETURN 

6065 PR I NT "OUT (C) , B" ; s RETURN 

6066 PR I NT "SBC HL, BC" ;s RETURN 

6067 PR I NT " LD ( " ; s G0SUB4600 s PR I NT " ) , BC " p s RETURN 

6068 PR I NT " NEG " ; s RETURN 

6069 PR I NT "RET N";s RETURN 

6070 PRINT" IM O";: RETURN 

6071 PRINT"LD 1 , A" ;: RETURN 

6072 PRINT" IN C, (C) " ; s RETURN 

6073 PR I NT "OUT (C) , C" ;: RETURN 

6074 PR I NT "ADC HL, BC" ;: RETURN 

6075 PR I NT " LD BC , ( " ; : G0SUB4600 s PR I NT " ) " ; : RETURN 
6077 PR I NT "RET I ";: RETURN 

6080 PRINT" IN D, (C) ";: RETURN 

6081 PRINT-OUT (C) , D" ;: RETURN 

6082 PR I NT "SBC HL, DE" ;: RETURN 

6083 PRINT"LD (";: G0SUB4600s PRINT" ), DE" ; s RETURN 

6086 PRINT" IM I "; s RETURN 

6087 PR I NT " LD A , I " ; : RETURN 

6088 PRINT" IN E, <C) ";: RETURN 

6089 PR I NT "OUT <C) , E" ; s RETURN 

6090 PR I NT "ADC HL, DE" ; s RETURN 

609 1 PR I NT " LD DE , < " ; : G0SUB4600 s PR I NT " ) " ; s RETURN 

6094 PRINT" IM 2";: RETURN 

6095 PRINT"LD A, R";: RETURN 

6096 PRINT" IN H, (C) "; s RETURN 

6097 PR I NT " OUT ( C ) , H " ; : RETURN 

6098 PR I NT " SBC HL , HL " ; s RETURN 

6 1 03 PR I NT " RRD " ; s RETURN 

6104 PRINT"IN L, (C)";sRETURN 

6105 PRINT"OUT <C) ,L" ;: RETURN 

6106 PR I NT "ADC HL, HL" ; 5 RETURN 
6111 PR INT"RLD" ;: RETURN 
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DONT BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UPTO 
NEWDOS 80 $149 incL p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well -documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5% inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset - allows transfers of any system tape 
to Disk file — automatically relocated. 

•■- LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL - An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR - a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk 1/0 errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available - 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $339 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80TRACK DRIVES. 
MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1 500! ! 

MPI B91 80 Track Single Head Drive. . only $499 

MPI B92 80 Track Dual Head Drive only $599 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 

VIA 

SYSPAND-80- $119 incl. p&p 

The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem^-A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 

$37.50 + $1.20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL IIS BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



UPGRADE 
FOR ONLY 



I0 1 ! 



MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 — 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $35 inci. p&p 

DC-4 4 Drive Connector Cable $45 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 

OF YOUR DISK DRIVES 

PERC0M D0UBLER ONLY $220 

plus $2.00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 



DOUBLE-ZAP II - DOUBLE DENSITY PATCH 

FORNEWDOS80 
ONLY $53.00 plus $1.00 p&p 

If you are using NEWDOS 80, then you also need 
DOUBLE-ZAP II, on diskette. This program upgrades 
your NEWDOS 80 to double density with ADR (auto- 
matic density recognition.) It retains all the familiar 
features, including the ability to mix and match 
track counts on the same cable. In addition, it gives 
NEWDOS 80 the ability to mix densities on the same 
cable, automatically. If you place a single density 
diskette in drive 0, say and a double density diskette 
in drive 1, Double-Zapll will recognise this and read/ 
write to drive in single density whilst at the same 
time it reads/writes to drive 1 in double density! 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 

$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 

sample programs. Applies to both TRS-80 and SYSTEM 

80. 

TRS-80 DISK AND OTHER MYSTERIES 
$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories — this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 



1IGH QUALITY DISKETTES all prices include p&p 

10 TRACK NASHUA SINGLE SiDE/SlNGLl DENSITY ... $45.00 box ©f 11 
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SOFTWARE BY AUSTRALIAN AUTHORS 

All our software Is suitable for either trie SYSTEM 80 or the THS-80 



NEW SOFTWARE FROM IVlICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 
Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

S-KE Y by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 
S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 
S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 
S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



)ISKET¥ES 

BLE DENSITY ... $59.00 box of 10 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/1648K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY (L2/16K) $7.50 $ 50c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/1BK) $7.50 + 50c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$9.95 + 50c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 
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AUSTSALIAN SOFTWARE (Cont.) 
GAMES 

SHEEPDOG (L2/16K) $7.50 + 50c p&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $7.50 plus 50c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $7.50 + 50c p&p 
Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

G0LF(L2/16K) $7.50 + 50c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

DOMINOES(L2/16K) $7.50 + 50c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $7.50 pies 50c. p&p 
Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions — 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 
GSF/L2/48K ^4.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) ^4.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED(L21B,32or48K)^9.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 
ONLY *$949 Inc. Cable for TRS-80 and p&p 
(*Printer only - $940 inci. p&p) 
The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch . 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$19.95 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial. staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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6114 PRINT"SBC HL, SP"! ! RETURN 

6115 PRINT"LD <"; sGOSUB4600s PRINT" ), SP" s s RETURN 

6120 PRINT" IN A, (C)"ssRETURN 

6121 PRINT"0UT <C> , A" ; s RETURN 

6122 PR I NT "ADC HL , SP "; s RETURN 

6 1 23 PR I NT " LD SP , ( " s s G0SUB4600 s PR I NT " ) " s s RETURN 

6160 PRINT"LDI " ; : RETURN 

6161 PR I NT " CP I" s : RETURN 

6162 PRINT" INI " s : RETURN 

6 1 63 PR I NT " OUT I " s s RETURN 

6168 PR I NT " LDD " s s RETURN 

6 1 69 PR I NT " CPD " 5 5 RETURN 

6170 PRINT" IND" s : RETURN 

6171 PR I NT " OUTD " : s RETURN 

6176 PRINT"LDIR" ; : RETURN 

6177 PRINT"CPIR";: RETURN 

6178 PRINT" INIR";s RETURN 

6179 PRINT"OTIR"ss RETURN 

6 1 84 PR I NT " LDDR " ; s RETURN 

6 1 85 PR I NT " CPDR " ; s RETURN 

6 1 86 PR I NT " I NDR " s : RETURN 

6 1 87 PR I NT " OTDR " 5 s RETURN 

7007 REM ** PRINT DD & FD INSTRUCTIONS ** 



7009 L=2 2 PR I NT "ADD 
7025 L=2 SPRINT "ADD 



7033 L=4 s PR I NT " LD " s G$ : " , " s s G0SUB4600 s RETURN 



'?G*s%BC"ss RETURN 
G* 5 ",DE"ss RETURN 



■ ; s GOSUB4600S PRINT" >,"; G*s s RETURN 
■pG* ss RETURN 
; G*p " , " 5 6*5 s RETURN 

G$s " , < " s s G0SUB4600; PRINT" >" s s RETURN 
'; 6*;: RETURN 
' 5 P*;s RETURN 
'sPSss RETURN 

s P*; " , " s s G0SUB4700S RETURN 
":G*s",SP"ss RETURN 
"S PS ; 5 RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



P*5 
■sP*s 

':P* = 
■sP*s 



"sP*;' 


SB" 


"?P$s ' 


■,C" 


"5P*s * 


■,D» 


"|P$ S - 


. ,,E " 


"?PSs ' 


9 ** 


"5PS5' 


%L" 


"SP*S' 


•,A" 



7034 L=4sPRINT"LD ( 

7035 L=2 SPRINT "INC 

7041 L=2 SPRINT "ADD 

7042 L=4sPRINT"LD " 

7043 L=2 SPRINT "DEC 

7052 L=3s PRINT" INC 

7053 L=3 SPRINT "DEC 

7054 L=4sPRINT"LD " 
7057 L=2 SPRINT "ADD 
7070 L=3sPRINT"LD B, 
7078 L=3sPRINT"LD C, 
7086 L=3sPRINT"LD D, 
7094 L=3sPRINT"LD E, 
7102 L=3sPRINT"LD H, 
7110 L=3sPRINT"LD L, 

7112 L=3sPRINT"LD 

7113 L=3sPRINT"LD 

7114 L=3sPRINT"LD 

7115 L=3sPRINT"LD 

7116 L=3sPRINT"LD 

7117 L=3sPRINT"LD 
7119 L=3sPRINT"LD 
7126 L=3sPRINT"LD A, " 3 P*s s RETURN 
7134 L=3sPRINT"ADD A, " ;P*s 5 RETURN 
7142 L=3s PRINT" ADC A, " sP*; s RETURN 
7150 L=3 s PR I NT "SUB " 5 P* s s RETURN 
7158 L=3s PRINT"SBC A, "sP*; s RETURN 
7166 L=3 5 PR I NT "AND " 5 P*;s RETURN 
7174 L=3sPRINT"X0R "sP*ssRETURN 
7182 L=3sPRINT"0R ":P*ssRETURN 
7190 L=3sPRINT"CP " 5 P*ss RETURN 
7225 L=2 SPRINT "POP ";G*;s RETURN 
7227 L=2 SPRINT "EX <SP) , "s 6*5 s RETURN 
7229 L=2 SPRINT "PUSH "?G*ss RETURN 
7233 L=2sPRINT"JP <" s G*s ")" s 3 RETURN 
7249 L=2sPRINT"LD SP ," s G* s s RETURN 

7999 REM ** 8000 - ED INSTRUCT. 

8000 GOSUB 1 1 000 3 Y*=R I GHT* ( STR* ( F+6000 ) , 4 ) s GOSUB2 1 1 

8005 I FF=670RF=750RF=830RF=9 1 ORF= 1 1 50RF= 1 23THENL=4ELSEL=2 
8010 M=17231sG0SUB2150sG0T050 

9999 REM ** PRINT CURRENT MEMORY CONTENTS (ALL INSTR. ) t* 

1 0000 W=0 s FORT= 1 TOL s E=PEEK ( Z- 1 +T ) 3 G0SUB5000 

10010 PRINT315+ (K-l ) % 64+ W, C*s s W=W+2s NEXT 

10011 REM « PRINT ASCII CHARACHTERS ft 

10012 W=OsFORT=lTOLsS=PEEK(Z-l+T) s IFN0T(S>64ANDS<91 ) THENS=46 
1 00 1 6 PR I NT354+ ( K- 1 ) *64+W , CHR* ( S ) ; s W=W+2 s NEXT s PR I NT 3 RETURN 

10019 REM tt CB INSTRUCTIONS ** 

1 0020 L=2 s N=PEEK < Z+ 1 ) s I FN >=64THENGOTO 1 1 80 
1 0030 GOSUB 1 0050 s GOSUB 1 1 50 

10040 PR INTO* 5" " ; D* 5 3 RETURN 
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1 0050 I FN< 8THENQ*= " RLC " s RETURN 

1 0060 I FN< 1 6THENQ*= " RRC " : RETURN 

10070 I FN< 24THENQ*= " RL " i RETURN 

1 0080 I FN< 32THENQ*= " RR " : RETURN 

1 0090 I FN< 40THENQ*= " SLA " : RETURN 

1 1 00 I FN< 56THENQ*= " SRA " s RETURN 

1 1 1 I FN< 64THENQ*= " SRL " : RETURN 

1 1 20 I FN< 1 28THENQ*= " B I T " s RETURN 

1 1 30 I FN< 1 92THENQ*= " RES " s RETURN 

10140 Q*="SET": RETURN 

10150 R=N/8:R=N-R*8+1 

1 1 60 RESTORE s FORT= 1 TOR : READD* g NEX T : RETURN 

10170 DATAB,C,D,E S H,L, <HL),A 

1 1 80 GOSUB 1 1 20 : GOSUB 1 1 50 s GOSUB 1 0200 

10190 PRINTQ*! J; ","s D*; s RETURN 

1 0200 I FN > 1 27 ANDN< 1 92THEN0= 1 28 s GOTO 1 0220 

10210 IFN>191THEN0=192ELSE0=64 

10220 J=<N-0)/8: RETURN 

10999 REM ** PEEK AT 2ND BYTE OF DD/ED/FD INSTR. tt 

1 1000 F=PEEK < Z+l ) s IFN0TF=203THENRETURNELSEL=4 

1 1 005 N=PEEK < Z+3 ) : I FN< 63THEN 1 1 1 OOELSEU=N : U=U/8 

11010 I FU >7THENU=U-8 s GOTO 11010 

1 1020 G0SUB10120: PRINTQ*: Us ",";P$;: G0T030 

11100 GOSUB 1 0050 : PR I NTQ* s " " s P$ : s 60T030 

12000 IFERR/2+l=8THENPRINT"? DATA ?" ; sL=l s RESUME30 

12002 PR I NT SPRINT "ERROR NUMBER" ; ERR/2+1 : " IN LINE" 5 ERLs END 



***** 12 HOUR CLOCK L2/4K m/1 (c) Brenton Hoff ***** 

Here is a clock program which is ideally suited to loading into the '80 when nothing else is 
being run on it. It features large digits and high accuracy (the time is displayed to the hundredth 
of a second). Operation is easy and fast and the program is designed to minimise interference 
caused on the screen. 

ENTERING THE PROGRAM 

Using a suitable monitor such as BMON, RSM etc., enter the Hex listing shown below, into memory. 
(TBUG is not suitable as it resides in the same area as CLOCK). Punch out a SYSTEM tape using 
the following parameters :- 

START END ENTRY NAME 

4A36 4BA0 4A36 CLOCK 

LOADING FROM CASSETTE 

1. Switch on the computer 

2. Answer MEMORY SIZE7/READY? with ENTER/NEWLINE. 

3. Type SYSTEM and press ENTER/NEWLINE 

4. Answer *? by typing CLOCK, press ENTER/NEWLINE 

5. When the program has loaded, answer the second *? by typing / and press ENTER/NEWLINE to begin 
execution. 

The program will immediately di splay :- 

HHMMSSHH? 

where the first two H's stand for hours, the two M's for minutes, the two S's for seconds and 
the last two H's for hundredths of seconds. You must enter all 8 digits. E.g. 4:10 would be 
entered as 04100000. Type in a time which is a little ahead of the actual time and then press 
the ENTER/NEWLINE key at the instant the time is correct. For extreme accuracy, add an extra 
0.10 seconds to the time at which you intend to press the ENTER/NEWLINE key. This allows for 
the input processing time of the computer. 

The clock will commence functioning at the time typed in and requires no further input. The 
time is displayed in large graphics and, at least on the TRS-80 monitor, the interference caused 
by the clock display often synchronises quite accurately with the electron beam, the speed and 
direction of the interference being closely related to the calibration of the clock. 



ISSUE 18 (MAY 1981) MICRO-80 

4A36: 21 F7 4A CD A7 28 CD B3 IB CD 78 ID 11 E5 4A 06 

4A46: 08 7E D6 30 FA 36 4A FE 3A 30 E5 12 23 13 10 Fl 

4A56: CD C9 01 06 07 21 E5 4A 7E E5 21 FO 4A B7 28 04 

4A66: 36 02 18 02 36 09 El 3E B3 32 12 3E 32 20 3E 3E 

4A76: BO 32 2E 3E 04 B7 7E E5 68 2D 26 4B 5E 16 3D 4F 

4A86s 17 17 17 17 C6 08 91 6F 3E 03 C5 01 05 00 ED BO 

4A96s 01 3B 00 EB 09 EB 3D 20 F2 CI El 23 10 D7 Ol 8B 

4AA6: 02 CD 60 00 00 00 00 00 21 EC 4A 11 F6 4A 01 00 

4AB6s 00 34 1A BE 30 06 71 2B IB 04 18 F5 78 FE 07 38 

4AC6s B3 E5 21 FO 4A 3E OB AE 77 21 E5 4A 7E 23 B6 20 

4AD6: 02 36 01 El 78 FE 08 20 9B 23 05 18 97 00 00 00 

4AE6: 00 00 00 00 00 00 00 FF FF 01 09 05 09 05 09 09 

4AF6: 09 48 48 4D 4D 53 53 68 68 00 F6 FO E8 E2 DA D4 

4B06: CC C6 BC 83 83 B3 BC BF 8C 83 80 BF 80 83 83 83 

4B16s 80 80 8C BF 80 80 80 80 BF 80 80 80 83 83 83 80 

4B26: 8C 83 83 83 BC BC 83 83 83 80 83 83 83 83 83 8C 

4B36s 83 83 83 BC BO 80 83 83 BC 80 83 83 83 80 SO BO 

4B46: 8C BF 80 8F 8C 8C BF 8C 80 80 80 83 80 BF B3 B3 

4B56s B3 83 BO 80 80 SO BF 80 83 83 83 80 BO 8C 83 83 

4B66: 80 BF 83 83 83 BC 80 83 83 83 80 83 83 83 B3 8F 

4B76s BO 8C 83 80 80 83 80 80 80 80 BC 83 83 83 BC BC 

4B86s 83 83 83 BC 80 83 83 83 80 BC 83 83 B3 BC 80 83 

4B96s 83 B3 8F 80 83 83 80 80 47 FF FF 
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***** BONES LII/4K (c) David Balaic ***** 



LOADING INSTRUCTIONS, 



T Then°t d e h CLOAD"B'' am ^^ CaSSette ' anSwer MEM0RY SIZE? < READY? ) by pressing ENTER/NEW LINE. 
When the program has loaded type RUN and press ENTER/NEWLINE. 
HOW TO PLAY. 

The object of this reflex game for two players is to be the first to build a complete skeleton. 
The screen is divided down the middle, the first player's skeleton will be built on the left 
of the screen and the second on the right. The left hand player uses the "Z" key and the riqht 
hand player uses the "/" key. y 

At the bottom of the screen the words: 

PRESS A KEY — 
will be displayed When the word "NOW" appears the first player to press his key will get some 
bones, but be careful. If you press your key before the word "NOW" appears you lose ALL your 

10 'BONES BY DAVID BALAIC, 194/125 NAPIER ST., FITZROY 3065 

COPYRIGHT (C) COMPLETED 4/ll/198oI 

20 CLS : PR I NT322 1 , " BONES " ? : RANDOM 

, 25) : SET (65, 25) : SET (66, 25) : F0RY=24T026: SET (58, Y) : SET (68, Y) s NEXT 

40 F0RX=60T066STEP2: SET ( X, 28): RESET (X,30): SET (X, 29): NEXT 

50 F0RX=60T066STEP2: RESET ( X , 29) : SET (X, 30) s NEXT: Z=Z+1 

60 I F Z =27THEN70ELSEF0RN= 1 TO 1 00 s NE X T s 60T040 

70 CLS: PRINT" THE BONES PROGRAM BY DAVID BALAIC" : PRINT 

80 PR I NT "THIS GAME TESTS YOUR REFLEXES. YOU MUST BEAT YOUR OPPONENT BY 

PRESSING YOUR KEY (Z FOR PLAYER #1, /FOR PLAYER #2) WHEN TOLD " 

90 INPUT"HIT 'ENTER' TO CONTINUE" s Z$ 

100 CLS: F0RY=0T044: SET (61 , Y) : SET (62, Y) : NEXT: G=28: M=32: J=63 

110 C$=INKEY$:PRINTS>960, "PRESS THE BUTTON. . . " : : FORN=OTORND (200 

O) :B$=INKEY^: IFB*O"»THEN130ELSENEXT * OTDRND(200 

120 GOTO 160 

1 30 I FB$= " Z " PR I NT3458 , " CHEAT ! " : : G0SUB400 

1 40 I FB$= " / " PR I NT3490 , " CHEAT ! " : : G0SUB400 

150 NEXT 

1 60 PR I NT3983 , " N O W *' ; s A^= I NKE Yfs : I F AH= " " THEN 1 60ELSE 1 70 

170 IFA*="Z"T=T+1:G0TQ21G 

180 IFA*="/"S=S-s-ls60T0300 

1 90 I F ( m= » Z / " ) OR ( m= " / Z " ) AH»=LEFTS ( AH , 1 ) § GOTO 1 70ELSE200 

|?2 TFT-i^-iT^r^v 3 ^; 2 ' ° R ^^ C ° R BL -IMEY!"::FORN=iTOi300:NEXT:GOT0110 

210 IFT=1F0RX=1 1T021 s SET (X, 44) s NEXT: F0RY=29T043: SET (21 , Y) s NEXT: GOTOl 10 

220 IFT=2F0RX=30T040:SET(X,44) s NEXT: F0RY=29T043: SET (30, Y) g NEXT: GOTOl 10 

230 IFT=3F0RX=19T032:SET(X,24):SET(X,28):NEXT S F0RY=10T023:SET(25,Y):SET(26 Y)-NE 

XT:SET(21,26)iSET(30,26):F0RY=25T027:SET(19,Y):SET(32,Y):NEXT:G0T0ri0 
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240 IFT=4F0RX=15T036: SET ( X , 9) : NEXT: FORX=23T028: SET ( X , 3) s NEXTs F0RY=4T05s SET (22, Y) 

: SET (29, Y) : NEXT: SET (23, 6) : SET (28, 6) : SET (27, 5) : SET (24, 5) : FDRX=24T027: SET (X, 7) : NEX 

T: SET (25, 8) : SET (26, 8) : GOT01 10 

250 IFT=5F0RY=10T020: SET ( 15, Y) : NEXT: SET (15, 29) : F0RY=21T028: SET ( 14, Y) s SET ( 16, Y) : N 

EXT: FORY=30T032: SET ( 14, Y) s SET ( 15, Y) : SET ( 16, Y) : NEXT: SET (13,31): SET (17,31): SET ( 15, 

33) : GOTOl 10 

260 IFT=6F0RY=10T020:SET(36,Y) : NEXT: SET (36,29) :F0RY=21T028s SET (35, Y) : SET (37, Y) : N 

EXT: F0RY=30T032: SET (35, Y) : SET (36, Y) : SET (37, Y) : NEXT: SET (34, 31 ) : SET (38, 31 ) : SET (36, 

33):G0T0110 

270 IFT=7F0RX=18T033: SET ( X , 1 1 ) : SET (X , 13) : NEXTs GOTOl 10 

280 IFT=8F0RX=18T033:SET(X, 16) : SET (X, 18) : SET (X , 20) : NEXT: GOTOl 10 

290 IFT=9PRINT35, "PLAYER #1 WINS" : : PRINT336, "DO YOU WISH TO PLAY AGAIN" s s INPUTZ* 

: Z*=LEFT*(Z*, 1) : IFZ*="Y"THENRUN100ELSEEND 

300 IFS=1F0RX=74T084: SET ( X , 44) s NEXT: F0RY=28T043: SET (84, Y) : NEXT: GOTOl 10 

310 IFS=2F0RX=93T0103: SET (X , 44) : NEXT: F0RY=28T043: SET (93, Y) : NEXT: GOTOl 10 

320 IFS=3FORX=82T095: SET ( X , 24) : SET ( X , 28) : NEXT: FORY=25T027 : SET (82, Y) : SET (95, Y) s NE 

XT: SET (84, 26) : SET (93, 26) : F0RY=10T023: SET (88, Y) :SET(89,Y) : NEXT: GOTOl 10 

330 IFS=4F0RX=78T099: SET ( X , 9) : NEXT: F0RX=87T090s SET (X , 7) s NEXT: SET (88, 8) : SET (89, 8) 

: SET (87, 5) : SET (90, 5) : SET (91,6): SET (86, 6) : F0RY=4T05: SET (85, Y) s SET (92, Y) : NEXT: FORX 

=86T091:SET(X,3) : NEXTs GOTOl 10 

340 IFS=5F0RY=10T020s SET (78, Y) : NEXTs FOR Y=21T028s SET (77, Y) s SET (79, Y) s NEXTs F0RY=30 

T032: SET (77, Y) : SET (78, Y) : SET (79, Y) : NEXTs SET (78, 33) s SET (78, 29) s SET (76, 31 ) s SET (80, 

31) : GOTOl 10 

350 IFS=6F0RY=10T020: SET (99, Y) s NEXTs SET (99, 29) s F0RY=21T028s SET (98, Y) s SET ( 100, Y) s 

NEXTs F0RY=30T032: SET (98, Y) s SET (99, Y) s SET ( 100, Y) s NEXTs SET (99, 33) s SET (97, 31 ) s SET ( 1 

01,31)s GOTOl 10 

360 IFS=7F0RX=81T096s SET ( X , 1 1 ) s SET ( X , 13) s NEXTs GOTOl 10 

370 IFS=8F0RX=81T096sSET(X,16) sSET(X, 18) s SET (X, 20) s NEXTs GOTOl 10 

380 IFS=9PRINT336, "PLAYER #2 WINS" s :PRINT35, "DO YOU WISH TO PLAY AGAIN" s s INPUTZ^ 

: Z*=LEFT$(Z*, 1) : IFZ*="Y"THENRUN100ELSEEND 

390 END 

400 I FB*= " / " THEN450 

410 F0RN=1T0500:NEXT 

420 F0RE=FT0Gs IFE=924THEN440ELSEPRINT3E, " " ; sNEXT 

430 F=F+64s6=G+64s60T0420 

440 F=0 s 6=28 s T=0 s B*= " " s GOTO 110 

450 F0RN=IT0500sNEXT 

460 FORH=MTO J s I FH=959THEN480ELSEPR I NT3H , " " p s NEXT 

470 M=M+64 s J = J +64 s G0T0460 

480 M=32s J=63s S=Os B*=" " s GOTO! 10 



***** PHILATELIC ADVISOR LII/16K (c) John S. Richardson ***** 

Here is a program for those of our readers who are collectors or investors, specifically of 
stamps but the same principles could be applied to many other fields. 

This program uses most of the 16K of memory due to the large data base. It would be simple 
to list other stamps by changing the data and relevant titles. The last two items of each data 
statement refer to the author's stamp collection. They should be amended to suit the user's 
own collection. If additional sets are added or deleted, the value of N should be changed to 
reflect the revised number of sets. The program holds data on each stamp set issued in Australia 
from 1966 (decimal currency) to the end of 1980. The data includes the set name, year/issue, 
face value, number of stamps in the set and the 1980 catalogue value. It also calculates the 
annual compound growth rate, (not just the simple growth rate), of each stamp, catalogue/face 
value. It sorts into sequence for growth, i.e. stamps with the highest growth listed first; 
this is a long sort that takes about 7 minutes. Finally, the program lets the user input current 
values and calculates growth and sorts into sequence. This program should appeal to the many 
stamp investors. Australia Post estimates that there are over 1 million collectors in Australia, 
300,000 of whom collect Australian decimal stamps. 



10 G0T040 

20 INPUT "PRESS 'NEW LINE' TO CONTINUE"sC* 

30 RETURN 

40 CLEAR 10 

50 D=80sCLS 

60 N=106 

70 REMsN=NUMBER OF STAMP SETS TO END 'D' 

80 T*= " ## . ## " s U*= " ### . ## " s V*= " **### . ## " 

90 DIMS*(N):DIMS(N,7):DIMT(N):DIME(N>sDIMG(N) 

100 PRINT3514, "tt STAMPS tt STAMPS tt STAMPS tt STAMPS « STAMPS tt 
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110 F0RX=1T0500:NEXT 

120 PRINT3208, "PHILATELIC ADVISOR" 

1 30 PR I NTTAB (13)" AND COLLECT I ON EVALUATOR " 

140 PR I NT : PR I NTTAB < 1 3 ) " AUSTRAL I A - DEC I MAL SETS " 

150 PRINT3776, "A PROGRAMME BY JOHN S RICHARDSON" 

160 F0RX=lT02000sNEXT XsCLS 

170 PR I NT "THIS PROGRAMME ALLOWS THE USER TO REVIEW THE VALUE OF SETS OF 

AUSTRALIAN STAMPS, SINCE DECIMALISATION IN 1966." 

ISO PR I NT "DATA IS CURRENTLY VALID FOR ALL ISSUES TO END ' "D" " 

190 PR I NT SPRINT "CAT. VALUES REFER TO THE AUSTRALIAN STAMP CATALOGUE 

"D-6-1 "EDITION, PRINTED MID *"D". THE USER MAY ADD CURRENT VALUES 

TO OBTAIN UP-TO-DATE DATA ON RECENT GROWTH." 

200 PRINTS PRINT "DATA HELD IS FOR j . RICHARDSON' S STAMP COLLECTION AT END >"D 

210 PR I NT "FOR RECORD AND VALUATION PURPOSES." 

220 PR I NT s PR I NT "IMPORT ANT s ALL STAMPS MINT" 

230 PRINT 

240 G0SUB20 

250 F0RX=1T0N 

260 READS (X,l) 

270 READS* (X) 

280 F0RY=2T06 

290 READS (X,Y) 

300 NEXTY 

310 NEXTX 

320 GOTO I960 

330 0NRG0T0340,590, 1040, 1040, 1040, 1720 

340 CLS s PR I NTTAB (15)" REPORT NO . 1 " 

350 PR I NT SPRINT "THIS REPORT WILL PROVIDE DETAILS OF ALL AUSTRALIAN STAMP SETS 

SINCE DECIMALISATION." 

360 PRINT" IT WILL ALSO SHOW THE NUMBER OF SETS PURCHASED FOR THE 

COLLECTION AT END *"D"." 

370 PR I NT "EACH SET WILL BE VALUED ACCORDING TO A.S.C."D+1" AND TOTALS 

WILL BE PRINTED. ' ' 

380 G0SUB20 

390 Z=OsTA=OsTB=OsTY=OsTX=0 

400 G0SUB960 

410 FORX=lTON 

420 TA=S(X,4)SS(X,5) 

430 TX=TX+TA 

440 TB=S(X,5)*S(X,6) 

450 TY=TY+TB 

460 PRINTS(X,l)TAB(5)StMX)TAB(15)S(X,2)s 

470 PRINTTAB(20)USINGT$sS(X,3)s 

480 PRINTTAB(28)USINGU*sS(X,4)s 

490 PRINTTAB(38)S(X,5)s 

500 PRINTTAB(46)USINGU$sS(X,6) 

510 1=1+1 

520 IFZ=13THENG0SUB20 

530 IFZ=13THEN60SUB960 

540 NEXT X 

550 PRINTS PRINT-TOTAL VALUE OF COLLECTION IS *»TX"AT CAT. PRICE" 

560 PR I NT "TOTAL COST OF COLLECTION WAS *"TY 

570 G0SUB20 

580 GOTO 1960 

590 CLS 

600 IFI=1G0T0750 

610 IFR>3 G0T0650 

620 PR I NTTAB (16) "REPORT NO. 2" i PRINT 

630 PR I NT "THIS REPORT LISTS ALL AUSTRALIAN STAMP SETS AT CURRENT VALUES 

AND PROVIDES DATA ON THE COLLECTION. TOTALS ARE PRINTED." 

640 PR I NTs FOR X=lT0500s NEXT 

650 PR I NT "THIS REPORT UTILISES CURRENT VALUES. YOU WILL BE REQUIRED 

TO ENTER A VALUE FOR EACH STAMP SET." 

660 PR I NT "PREPARE TO ENTER VALUES 

670 F0RX=1T0N 

680 PR I NT SPRINT "ENTER CURRENT VALUE OF. . . »S(X , 1 ) S*(X)" ("S(X 2)") TAT"- 

690 PRINTUSINGV*sS(X,4)s ="*,-£' h LHI * 

700 INPUTS (X, 7) 

710 NEXTX 

720 1=1 

730 IFR=460T01080 

740 IFR=5G0T01080 

750 Z=0sTA=0sTB=0sTX=0sTY=0 

760 G0SUB1000 

770 F0RX=1T0N 

780 TA=S(X,5)*S(X,7) 



ISSUE 18 (MAY 1981) MICRO-80 PAGE 26 

790 TX=TX+TA 

800 TB=S(X,6)*S(X,5) 

810 TY=TY+TB 

820 PRINT S(X,1)TAB(5)S*(X)TAB(15)S(X,2); 

830 PRINTTAB ( 19) USINGT*;S(X, 3); 

840 PRINTTAB (26) USINGU*; S(X, 4); 

850 PRINTTAB (34) USINGU*; S(X, 7); 

860 PRINTTAB (43) S(X, 5); 

870 PRINTTAB (51) USINGU*; S(X, 6) 

880 Z=Z+1 

890 IFZ=13G0SUB20 

900 IFZ=13G0SUB1000 

910 NEXTX 

920 PR I NT: PR I NT "TOTAL VALUE OF COLLECTION AT CURRENT VALUE IS *"TX 

930 PR I NT "TOTAL COST OF COLLECTION WAS *"TY 

940 G0SUB20 

950 GOTO 1960 

960 CLS : PR I NTTAB ( 1 ) " YR " TAB < 6 ) " DESC " TAB ( 1 5 ) " NO " TAB < 20 ) " FACE* " TAB ( 28 ) " CAT* " TAB ( 35 ) 

"QTY P/D"TAB (46) "COST/SET" 

970 PR I NT " » 

980 Z=0 

990 RETURN 

1 000 CLS : PR I NTTAB ( 1 ) " YR " TAB ( 6 ) " DESC " TAB ( 1 6 ) " NO " TAB < 20 ) " FACE* " TAB ( 27 ) " CAT* " TAB ( 34 

) "CURR*"TAB (41 > "QTY P/D"TAB (50) "COST/SET" 

1010 PR I NT " » 

1020 Z=0 

1030 RETURN 

1040 REMs RANKING REPORTS 

1050 IFI=1G0T01080 

1060 IFR=4G0T0590 

1070 TFR=5G0T0590 

1080 IFR=3G0T01130 

1090 IFR=4GOT01160 

1100 CLSs PR INTTAB( 16) "REPORT NO. 5" 

1110 PR I NT! PR I NT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

THE GROWTH IN ITS CURRENT VALUE, COMPARED TO CAT. VALUE. IT IS 

A GOOD GUIDE TO SHORT TERM, RECENT GROWTH." 

1120 60T01180 

1130 CLS! PRINTTAB( 16) "REPORT NO. 3" 

1140 PR I NT: PR I NT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

ITS INCREASE IN VALUE PER ANNUM, CAT COMPARED TO FACE VALUE." 

1150 GOTOH80 

1160 CLSs PR INTTAB( 16) "REPORT NO. 4" 

1170 PR I NT sPRINT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

ITS INCREASE IN VALUE PER ANNUM, CURRENT COMPARED TO FACE VALUE." 

1180 PRINT: G0SUB20 

1 190 CLS: PRINT3454, "HMMMMMMM . . LET ME THINK „ . . " 

1200 PRINT3582, " (THIS IS A COMPLEX CALCULATION - ALLOW UP TO 10 MINS. ) " 

1210 F0RX=1T0N 

1220 G(X)=0 

1230 T(X)=D-S(X,1) 

1240 IFT(XX1THENT(X)=1 

1250 T(X)=1/T(X) 

1260 IFR=4THEN1290 

1270 IFR=5THEN1300 

1280 G(X)=(( (S(X,4)/S(X,3))CT(X))-1)*100:60T0 1310 

1290 G(X)=(( (S(X,7)/S(X,3)) CT (X) ) -1 ) *100: GOTO 1310 

1300 G(X)=((S(X,7)/S(X,4))-1)*100 

1310 G(X)=INT(G(X)*10)/10 

1320 NEXTX 

1330 G0SUB1620 

1340 G0SUB1500 

1350 FORX=lTON 

1360 Z=Z+1 

1370 PRINTXTAB(4)S(E(X) , 1 ) TAB <9>S* (E (X) )TAB( 19)S (E (X) , 2) ; 

1380 PRINTTAB (24) USINGT*; S (E (X) , 3) 5 

1390 PRINTTAB (31 ) USINGU*; S (E ( X ) , 4) ; 

1400 PRINTTAB (40) USINGU*; S(E(X) ,7)* 

1410 PRINTTAB (50)G(E(X) ) TAB(59) S (E (X) ,5) 

1420 IFZ<12G0T01450 

1430 GOSUB20 

1440 GOSUB 1500 

1450 NEXTX 

1460 G0SUB20 

1470 INPUT"LIKE TO VIEW THIS DISPLAY AGAIN (Y/N)"|A* 

1480 IFA*="Y"THEN1340 

1490 GOTO I960 
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1500 CLS S PRINT"RNK"TAB<5) "YR"TAB<9) "DESC"TAB < 19) "N0"TAB<24) »FACE*"TAR <v> •■rzv T *..-r 
AB<39) "CURR*"j ihbi^j t-ttUfc* TAB < 32 ) CAT* T 

1510 IF R=4 GOTO 1550 

1520 IF R=5 GOTO 1580 

1 530 PR I NTTAB < 47 ) " CAT / FACE 7. " TAB ( 59 ) " QT Y " 

1540 GOTO 1590 

1550 PRINTTAB(46)"CURR/FACE %"TAB (59) "QTY" 
1560 GOTO 1590 
1570 RETURN 

1580 PRINTTAB<47)"CURR/CAT 7."TAB<59) "QTY" 
1590 Z=0 

1600 PRINT" 

1610 RETURN 

1620 A=0sB=0sP=0 

1630 F0RA=1T0N 

1640 P=l 

1650 F0RB=1T0N 

1660 IFG(AXG(B)THENP=P+1 

1 670 I FG ( A ) =G ( B ) ANDA< BTHENP=P+ 1 

1680 NEXTB 

1690 E(P)=A 

1700 NEXTA 

1710 RETURN 

1720 A=66 

1730 G0SUB1920 

1740 F0RX=1T0N 

1750 IFS<X,1)=ATHEN1770 

1760 GOTO 1830 

1770 TA=TA+S(X,3) 

1780 TB=TB+S<X,4) 

1790 B=D-A 

1800 IFD-A=0THENB=1 

1810 TC=((TB/TA)C(1/B) )-l 

1820 TC=INT(TC$1000)/10 

1830 NEXTX 

1 840 PR I NTATAB < 1 ) TATAB ( 20 ) TBTAB < 30 ) TC 

1850 Z=Z+1 

1860 IFZ=1360SUB20 

1870 IFZ=13GOSUB1920 

1880 A=A+lsTA=0:TB=OsTC=0 

1890 IFA=D+1G0SUB20 

1900 IFA=D+1G0T01960 

1910 G0T01740 

HH PrInT"-------^^^ * *•«-" 

1940 Z=0 " 

1950 RETURN 

I960 CLS 

1970 PRINTTAB<20)"« MENU «" 

JHS ™1™V? 'ST^SxtSk SELECT FR0M ° NE ° F THE BLOWING REPORTS." 
io»n ootm-t» 1b COLLECTION VALUATION BY CAT. VALUE." 

"2. COLLECTION VALUATION BY CURRENT VAL. NOTE A" 

"3. RANKING, GROWTH P/A - CAT* /FACES. 

"4. RANKING, GROWTH P/A - CURR*/FACE*. NOTE A" 

"5. RANKING, SHORT-TERM GROWTH"/. - CUR/CAT. NOTE A" 

"6. SUMMARY OF VALUES BY YEAR OF ISSUE " 
2050 PRINTS PR I NT "NOTE As ENTER CURRENT VALUES OF " ALL STAMP q FT q Tn run > » n 
2060 PRINT: INPUT-ENTER REPORT NUMBER REQUIRED" -R ° ° 

2070 IFR<10RR>8G0T02060 * 

2080 GOT0330 

2090 DATA 66, QEi i , 7, . 28, 10. 3, 1 , 4.8 
2100 DATA 66,QE COIL, 3, . 12, 3. 5, 1 , 1 . 9 
2110 DATA 66, BIRDS, 8, 1.38, 130.25,0,0 
2120 DATA 66, NAVS, 6, 8. 65, 243. 5, 0,0 
2130 DATA 66, FISH, 4, .34,34, 1,19.8 
2140 DATA 66, 4C COMM' S, 3, . 12, 1 . 2, 4, . 6 
2150 DATA 67, 4C COMM' S, 5, . 20, 2, 4, 1 
2160 DATA 67, 5C ON 4C, 1 , . 05, 1 . 75, 4, 1 . 25 
2170 DATA 67,xMAS,2,.3,9,4,5.7 
2180 DATA 68, WWW, 2,. 25, 10.5,2,8 
2190 DATA 68, INTEL, 1,. 25, 10, 0,0 
2200 DATA 68, FLOWERS, 6, 1 . 09, 45. 75, 0, 
2210 DATA 68,S0IL/MED 9 2,.1,1.2,4,.4 
2220 DATA 68, OLYMPIC, 2, . 3, 8.5, 0,0 
2230 DATA 68, 5C COMM' S, 3, . 15, 1 . 5,4, . 6 
2240 DATA 68, FA'S 1,4, .2, 12, O, O 
2250 DATA 69, 5C COMM' S, 3, . 15, 1 .5,4, .6 



1990 PRINT 
2000 PRINT 
2010 PRINT 
2020 PRINT 
2030 PRINT 
2040 PRINT 
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2260 


DATA 


69, 


2270 


DATA 


69, 


2280 


DATA 


69, 


2290 


DATA 


69, 


2300 


DATA 


70, 


2310 


DATA 


70, 


2320 


DATA 


70, 


2330 


DATA 


70, 


2340 


DATA 


70, 


2350 


DATA 


70, 


2360 


DATA 


70, 


2370 


DATA 


70, 


2380 


DATA 


70, 


2390 


DATA 


70, 


2400 


DATA 


70, 


2410 


DATA 


71, 


2420 


DATA 


71, 


2430 


DATA 


71, 


2440 


DATA 


71, 


2450 


DATA 


71, 


2460 


DATA 


72, 


2470 


DATA 


72, 


2480 


DATA 


72, 


2490 


DATA 


72, 


2500 


DATA 


72, 


2510 


DATA 


72, 


2520 


DATA 


72, 


2530 


DATA 


73, 


2540 


DATA 


73, 


2550 


DATA 


73, 


2560 


DATA 


73, 


2570 


DATA 


73 , 


2580 


DATA 


73, 


2590 


DATA 


73, 


2600 


DATA 


74, 


2610 


DATA 


74, 


2620 


DATA 


74, 


2630 


DATA 


74, 


2640 


DATA 


74, 


2650 


DATA 


74, 


2660 


DATA 


74, 


2670 


DATA 


74, 


2680 


DATA 


75, 


2690 


DATA 


75, 


2700 


DATA 


75, 


2710 


DATA 


75, 


2720 


DATA 


75, 


2730 


DATA 


75, 


2740 


DATA 


75, 


2750 


DATA 


75, 


2760 


DATA 


75, 


2770 


DATA 


76, 


2780 


DATA 


76, 


2790 


DATA 


76, 


2800 


DATA 


76, 


2810 


DATA 


76, 


2820 


DATA 


76, 


2830 


DATA 


76, 


2840 


DATA 


77, 


2850 


DATA 


77, 


2860 


DATA 


77, 


2870 


DATA 


77, 


2880 


DATA 


77, 


2890 


DATA 


78, 


2900 


DATA 


78, 


2910 


DATA 


78, 


2920 


DATA 


78, 


2930 


DATA 


78, 


2940 


DATA 


78, 


2950 


DATA 


78, 


2960 


DATA 


78, 


2970 


DATA 


78, 


2980 


DATA 


79, 


2990 


DATA 


79, 


3000 


DATA 


79, 


3010 


DATA 


79, 



69,. PRY IND, 4, .67,35,0,0 
XMAS, 2,. 3, 10. 5,0,0 
PM'S 1,4, .2, 10,0, O 
FLI6HT ST, 3,. 15, 15,0,0 
RAILWAY, 1 , . 05, .5,4,-2 
EXPO, 2, .25,6.5,0,0 
ROYAL V, 2, .35, 10.5,0,0 
GRASS, 1,-05, .4,4,-2 
COOK BIC, 6, . 55, 14,0,0 
COOK M/S, 1,. 55,20,0,0 
FLR COIL, 6, .34,3.9,4,2.24 
NAT DEV, 4,. 34, 13. 6, 0,0 
6C C0MM,4, .24,2,4, .8 
QANTAS, 2, . 36, 5. 5, 4, 3. 8 
FA'S, 4,. 24, 10, 0,0 
a' ASIA, 3,. 42, 16. 5, 0,0 
6C C0MM'S,4, .24,2,4, .8 
RSPCA,4,.62, 11,0,0 
AB ART, 4, 1.1,5.35,0,0 
XMAS BLK, 7, .49,125,0,0 
7C C0MM'S S 3 S .21, 1.5,4,, 6 
FA'S, 4,. 28, B, 0,0 
PRI IND,4, 1.1,68,0,0 
REHAB, 3,. 54, 6, 1,3 
OLYMPIC, 4, .56, 12.7,0,0 
PIONEER, 7, 2. 6, 16.85,0,0 
XMAS, 2, . 42, 18. 4, 1 , 16. 25 
METRIC, 4, .28, 14, 1,9.5 
7C C0MM'S,3, .21,1.5,4, .65 
FA'S BLK,4, .28, 18, 1,13.5 
NAT DEV, 4, 1. 1,52.5, 1,30 
MAR GEM, 9, .5,1.8,6,-5 
XMAS, 2, .37, 10.6,1,7.5 
ARCH, 4, 1.07, 15.5, 1, 10 
ANIMALS, 4, 1.5,8. 15,4,4.5 
7C C0MM*S,2, .14, 1.2,4, .5 
PAINTING, 5, 22, 34, 2, 22 
SPORTS, 7, . 49, 7, 1 , 3. 45 
UPU, 2, . 37, 3. 7, 4, 2. 05 
9C SURCH, 1 , . 09, . 35, 1 , . 25 
XMAS, 2, . 45, 2. 4, 1 , 1 . 45 
EDUCAT, 4, . 91 , 6. 3, 1 , 5. 35 
ENVIR'T,3, .3,3,2,2.5 
IWY,1, .1,-5,4,-2 
PM'S, 6, .6,3.6, 1,2.25 
SCIENCE, 4, i. 26, 10, 1,5 
POST/TEL, 2,-2,3,2,2 
FA'S, 6, .6,6, 1,5. 1 
W/FLRS, 2, . 63, 1 . 5, 4, . 73 
PNG, 2, .43,2.25,4, 1.7 
XMAS, 2,. 6, 4, 1,2. 05 
NAT'HD,2, .36,2. 15,2, 1.3 
18C C0MMS,3, .54, 1.5,4, .86 
EXPLORE, 6, 1.08,4.5, 1,2.35 
OLYMPIC, 4, 1.01,2.95, 1,1.6 
SCENES, 6, 2. 7, 6. 4, 5, 3. 94 
S/WK M/S, 1 , . 72, 3, 1 , 2. 95 
XMAS, 2, .6,2,4, 1.25 
FA'S, 4, .72,2, 1, 1.2 
P. ARTS, 4, 1.5,3.9,4,2.25 
JUBILEE, 2, .63,2.25,4,2.5 
CRICKET, 6, 1 . 35, 6.5,1,4.4 
XMAS, 2,. 6, 1.35, 4, 1.12 
18C C0MMS,3, .54,1.1,4, .86 
AVIATORS, 4, .72,1.6,1, 1.4 
AVIAT M/S, 1,-72,2,1,1. 4 
TREES, 4,1. 28, 5. 75, 1 , 4 
BIRDS 1,5,1.35,2.70,4,1.35 
S.WK, 1, .2, .4,2, .3 
S.WK M/S, 4, .8,2, 1,1.5 
XMAS, 3, .95,3.4, 1,2. OS 
HORSE R. ,4,1.6,4.15,4,2.65 
20C C0MMS,3, .6,1.2,4, .6 
FERRIES, 4, 1.6,2.2,4, 1.6 
LOCOS, 4,1.6,2.2,4,1.6 
N.PK,7 f 1.4,3.4, 10, 1.94 
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3020 DATA 79, BIRDS 2,6,1.28,2.6,4,1.28 

3030 DATA 79, FISHING, 4, 1 .6, 3. 2, 4, 1 .6 

3040 DATA 79, XMAS, 3, . 95, 2. 65, 22, . 97 

3050 DATA 80, A. DAY, 1 ,. 2, .4, 10, .2 

3060 DATA 80, DOGS, 5, 1 . 85, 3. 7, 33, 1 . 85 

3070 DATA 80, BIRDS 3,9,3.98,7.5,4,3.98 

3080 DATA 80,22C COMMS, 2, . 44, . 9, 8, . 44 

3090 DATA 80, FOLKLORE, 5, 1 . 1 , 2. 5,23, 1 . 1 

3100 DATA 80, WELFARE, 4,. 88,. 88, 7,. 88 

3110 DATA 80, S.WK, 5, 1.1,1.1,7,1.1 

3120 DATA 80, S.WK M/S, 1 , . 66, . 66, 7, . 66 

3130 DATA 80, XMAS, 3, 1.03,1.03,7,1.03 

3140 DATA 80, AIRCRAFT, 4, 1.67, 1.67,7,1.67 

3150 END 



***** UNIVERSAL LOWER-CASE DRIVER ROUTINES by Edwin Paay ***** 

For some time now, we have been promising to publish a lower-case driver routine for those readers 
who have installed a lower-case modification in their '80' s. Recently, as part of the development 
of MICRO-80' s own lower-case modification, Eddy Paay developed a pair of universal driver routines. 
Last month we challenged you to guess how he did it - now read on and see if you were correct. 

When the TRS-80 was designed, no allowance was made for lower-case letters to be displayed on 
the screen. Soon the TRS-80 was put to use as a word processor and the fact that the machine 
doesn't display lower-case was a real disadvantage. After studying the circuits, it will be 
seen that it is a relatively simple task to provide the TRS-80 with the correct hardware to 
allow lower-case characters to appear on the display. 

The BASIC interpreter however, converts most lower-case characters to upper-case so they won't 
show up if they are typed from the keyboard. Therefore a lower-case driver routine to bypass 
a section of the interpreter is required. During development of the MICRO-80 lower-case kit 
I heard many complaints from people who bought lower-case kits from other sources. Most complaints 
arose from the fact that these routines would load into high memory, and consequently would 
clash with other high memory routines such as printer drivers and other utilities. Other complaints 
concerned incompatibility with disk systems. 

When this sort of routine has to be written, two possible directions can be taken: 

1. Take the easy way out and write a dozen different driver routines to suit different system 
configurations and memory sizes, then dump them all on a cassette tape for the user to sort 
out. 

2. Write a routine that suits all '80 systems irrespective of memory size or configuration. 

I thought it would be nice to aim for the latter and consequently had to set the following goals: 

(a) The routine must be fully relocatable. 

(b) It should not load into program RAM before relocation so it won't over-write anything. 

(c) It must be able to be used from Disk or Cassette. 

(d) Optionally, after initialization it must be possible to exit to DOS for a disk system or 
to BASIC for a cassette based system. This is because a disk machine would load the lower- 
case driver from disk before disk BASIC is called up and initialized, whereas a cassette 
system would load the driver routine from cassette using the BASIC command "SYSTEM" after 
which BASIC would have to be re-entered. 

(e) Let's throw in a flashing cursor and key-debounce for good measure. 

(f) A toggle function should be provided to allow the TRS-80 to behave as a standard typewriter 
with upper-case as shifted characters or in standard TRS-80 mode with lower-case as shifted 
characters. 

Item (a) means that only relative jumps can be used and not CALLS or absolute jumps which contain 
addresses in their instructions, unless the jump or CALL is common to all configurations. (b) 
was a tough one. I considered loading the routine into the I/O buffer area but there isn't 
much space and it might be over-written during keyboard input before it is relocated. Of course, 
it is possible to instruct the user to load the driver routine before anything else, which means 
that the routine can be loaded in high memory and then ask where it has to be relocated. But 
many users are not aware of the actual addresses of other routines which may clash with the 
lower-case driver. Then, suddenly it struck me that, as part of the lower-case modification, 
a new RAM chip is added to the screen RAM, converting it to look like any other RAM in the system. 
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This meant that I could load and execute a routine straight from screen RAM. The maximum memory 
size is stored in memory, the value of which depends on how the "MEMORY SIZE" question was answered. 
The lower-case driver can read this value and use it to calculate the highest address allowed 
for relocation. Finally, (c) and (d) are accomplished by holding down a key during initializ- 
ation. When the driver routine has finished relocating itself, it scans the keyboard to see 
if the SHIFT key is down. If so, DOS will be entered, otherwise control is passed to BASIC. 

PROGRAM DESCRIPTION. 

At the end of this article* there are two source listings, one is a straight driver routine 
and the other has key-debounce and a flashing cursor built in. As they are both similar, I 
will describe how the flashing cursor version works. Line 120 sets the cursor outside the area 
where the program is going to be loaded. The INITialization routine starts at line 1290. Lines 
1290 to 1340 calculate the program length. 1360 checks to see if the SHIFT Key is down. If 
so, use 4049H to find the memory size, otherwise use 40B1H. Newdos-80 users can use the HIGHMEM 
command to force the lower-case driver to relocate to any position in memory. TRSD0S users 
can use DEBUG to alter address 4049H directly. Line 1420 does the relocating. 1440 and 1450 
load the new memory size in place to protect the lower-case driver routine. 1460 makes sure 
the stack isn't placed within the lower-case driver routine. 1480 defines new video driver 
routine address. 1515 to 1560 calculate and define new keyboard driver address to provide key- 
debounce and flashing cursor. 1620 sets delay counter for flashing cursor. 1630 to 1680 - 
if Floppy Disk Controller present AND the SHIFT key is down, then re-enter DOS or else re-enter 
BASIC. Think about this for a while. It allows for a cassette based machine with no expansion 
interface, a cassette machine with expansion interface (this means there is a disk controller 
present but no disk drive) or a fully-fledged disk system. 1700 to 1770 make sure that all 
pointers used by BASIC are altered to reflect the new memory size. The initialization routine 
is left in screen RAM and discarded after use. 

This brings us to the actual lower-case driver routine. The start of the video driver routine 
in ROM has to be by-passed. This was achieved by altering the video driver location pointer 
in the initialization procedure above. Lines 360 to 490 duplicate a section of ROM but the 
offending instructions which stop lower-case from being displayed have been removed. 

Finally, the keyboard is intercepted each time it is scanned. This is done at line 790. 790 
scans the keyboard. If a character is found, (it will be returned in the A register) control 
is passed to line 610. 610 resets the flashing cursor delay counter. Otherwise, if the delay 
counter (line 830 - 870) is zero, flash cursor on or off. 880 decrements the delay counter. 
500 to 600 toggle the cursor to on if it is off, or off if it is on. 680 to 710 checks if 
SHIFT zero was pressed ^. S HIFT zero tells the driver routine to toggl e from TRS -80 to typewriter 
m ode an d vice versaT *^ Location 'TLAG" is used to tell the system wlratrTiiodE-"ir'"TF"Trr: yju to 
1100 lcarTThT~keyboard and do a delay loop which is part of the debounce procedure. Line 1120 
tests the toggle FLAG to see if upper-case needs to be converted to lower-case. 1160 to 1190 
tests to see if character is alphabetic. 1200 to 1270 converts upper to lower-case or vice 
versa. 

ENTERING THE PROGRAMS. 

There are two versions of the lower-case driver. They are almost identical except that one 
is a straight lower-case driver, whereas the other has a key-debounce and flashing cursor routine 
built in. The program should be typed in and assembled using an assembler. The object code 
can then be dumped to tape or disk. The routines can be loaded from tape using the "SYSTEM" 
command; type the "/" followed by the ENTER key to initialize. Disk users can load the routines 
straight from DOS by typing their filespec; the SHIFT key will have to be held down as soon 
as the filespec is entered or control will never be handed back to DOS. Type SHIFT/zero to 
toggle from typewriter mode to TRS-80 mode or back again. 

(As stated above, it is necessary to use an editor/assembler to make use of this program. Readers 
who do not have an editor/assembler can send for the two driver routines on cassette, price 
$5.00 plus 50c. p&p, or on disk, price $8.50 plus 50c. p&p. - Ed.) 



OOOIO ; ********************************* 

00020 ;* LOWERCASE DRIVER ROUTINE l.O * 

00030 ;* FOR MICRO-80 LOWERCASE CONV. * 

00040 ;* CREATED : 25/05/1981 * 

00050 5* BY : E. R. PAAY * 

00060 ;* FOR s MICRO-80 * 

00080 ; ********************************* 

00090 ; 

OOIOO ORG 4020H 

00110 DEFW 3E00H 

00120 ; 
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00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

Y **«* 

00300 

IT *** 

00310 



MEMS I Z 

KBVEC 

DISPLY 

BACKSP 

VIDVEC 

VIDSW 

BASRDY 

DOSRDY 

FDC 

DMEMSZ 

CURPOS 

SPOINT 

SETPTR 

FLAG 

** 

*' 



ORG 

3 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DEFM 

DEFM 

DEFM 



3C40H 

40B1H 
4016H 
033AH 
0008H 
401 EH 
401DH 
06CCH 
402DH 
37ECH 
4049H 
4020H 

1B6EH 
4018H 
'***«*« MICRO-80 LOWER CASE DRIVER VERS 1.0, <C> E. R. PAA 

'**** THE ROUTINE WILL NOW LOAD INTO SCREEN RAM, PLEASE WA 



00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

0.0570 

0058O 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 



LCDRV 



BYPAS1 

DONE 
KBCHEK 



PROSES 



REDO 



FTEST 



LCONV 

EIND 
INIT 



DEFW 

LD 

LD 

JP 

LD 

OR 

JR 

LD 

LD 

CP 

JP 

CP 

JP 

JP 

JR 

CALL 

CP 

JR 
LD 

AND 

LD 

RET 

LD 

CPL 

LD 

XOR 

RET 

LD 

LD 

OR 

LD 

RET 

CP 

RET 

CP 

RET 

BIT 

JR 

RES 

CP 

JR 

RET 

SET 

JR 

DEFB 

LD 

LD 

OR 

SBC 

LD 

LD 

LD 

LD 



O 

L s (IX+3) 
H ? (IX+4) 
C S 49AH 
A 5 (IX+5) 
A 

Z S BYPAS1 
(HL) S A 
A S C 
20H 

C,506H 
80H 

NCs,4A6H 
47DH 
DONE 
3E3H 
20H 

NZ S PROSES 
A, (3880H) 
1 

A„20H 
Z 
A, (FLAG) 

(FLAG), A 
A 

C,A 

A, (FLAG) 

A 

A 3 C 

Z 

41H 

C 

80H 

NC 

5,A 

Z, LCONV 

5 ? A 

7BH 

NC ? REDQ 

5 5 A 

FTEST 

O 

HL,INIT 

DE ? LCDRV 

A 

HL ? DE 

B,H 

C,L 

HL S EIND 

A, (3880H) 
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00850 AND 

00860 JR 

00870 LD 

00880 JR 
00890 USEDMS LD 
00900 BYPASO LDDR 

00910 EX 

00920 LD 

00930 LD 

00940 LD 

00950 INC 

00960 LD 

00970 LD 

00980 LD 

00990 LD 

01000 LD 

01010 OR 

01020 SBC 

01030 ADD 

01040 LD 

01050 LD 

01060 LD 

01070 LD 

01080 LD 

01090 LD 

OllOO INC 

OHIO CP 

01120 JR 

01130 LD 

01140 AND 

01150 JP 
01160 BYPAS2 LD 

01170 OR 

01180 SBC 

01190 LD 

01200 CALL 

01210 XOR 

01220 LD 

01230 JP 

01240 END 



NZ , USEDMS 
DE, (MEMSIZ) 
BYPASO 
DE, (DMEMSZ) 

DE,HL 

(MEMSIZ ),HL 
( DMEMSZ >,HL 
SP,HL 
HL 

(VIDVEC) ,HL 
B,H 
C,L 

HL,KBCHEK 
DE,LCDRV 
A 

HL,DE 
HL,BC 
(KBVEC) ,HL 
H,B 
L,C 

DE,3E00H 
(CURPOS),DE 
A 5 (FDC) 
A 
2 

C,BYPAS2 
A, (3880H) 
1 

NZ , DOSRDY 
DE,32H 
A 

HL,DE 

(SPOINT),HL 
SETPTR 
A 

(FLAG), A 
BASRDY 
INIT 



000 1 
00020 
00030 
00040 
00050 
00060 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 



MEMSIZ 

KBVEC 

VIDVEC 

BASRDY 

DOSRDY 

FDC 

DMEMSZ 

CURPOS 

SPOINT 

SETPTR 

FLAG 

COUNT 

DELAY 

CURSOR 

CURSOF 

MAXCNT 



$* LOWERCASE DRIVER ROUTINE 1.0 A * 

$% FOR MICRO-80 LOWERCASE CONV. t 

;t CREATED s 25/05/1981 t 

;? BY s E. R. PAAY % 

%t FOR g MICRO-80 % 

it THIS ROUTINE HAS KEY-DEBOUNCE * 
•ttttttttttttttttttttttttttttttttt 



ORG 
DEFW 

ORG 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



4020H 
3E40H 

3C40H 

40B1H 

4016H 

401 EH 

06CCH 

402DH 

37ECH 

4049H 

4020H 

40A0H 

1B6EH 

4018H 

4019H 

0060H 

5FH 

20H 

400H 
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00320 FLAB1 

00330 

NE 1.0A' 

00340 

IT ****' 

00350 



00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
OlOOO 
OIOIO 
01020 
01030 



LCDRV 



BYPAS1 



DONE 
SETCUR 



RESCUR 



RESCNT 



FIXCNT 



CLRA 
KBCHEK 



DBOUNS 
LOOPO 

L00P1 



EOU 
DEFM 

DEFM 

DEFM 

DEFW 

LD 

LD 

JP 

LD 

OR 

JR 

LD 

LD 

CP 

JP 

CP 

JP 

JP 

LD 

LD 

CP 

LD 

JR 

LD 

LD 

LD 

XOR 

PUSH 

JR 

PUSH 

XOR 

LD 

LD 

LD 

POP 

EXX 

CP 

JR 

LD 

AND 

LD 

JR 

LD 

CPL 

LD 

XOR 

RET 

CALL 

EXX 

OR 

JR 

LD 

LD 

OR 

LD 

JR 

DEC 

LD 

EXX 

RET 

EXX 

PUSH 

LD 

LD 

LD 

XOR 

OR 

EX 

AND 

EX 

INC 

RLC 



4022H 

'MICRO-SO COMBINED LOWERCASE DRIVER AND KEY DEBOUNCE ROUT I 

'tttt THE ROUTINE WILL NOW LOAD INTO SCREEN RAM, PLEASE WA 

ttt BY E.R.PAAY <C> MICRO-80 *« 

O 

L, (IX+3) 
H, (IX+4) 
C,49AH 
A, (IX+5) 
A 

Z,BYPAS1 
(HL),A 
A,C 
20H 

C,506H 
80H 

NC,4A6H 
47DH 

HL, (CURPOS) 
A, <HL) 
CURSOF 
A,CURSOF 
NZ S RESCUR 
A, CURSOR 
(FLAG1),A 
(HL),A 
A 
AF 

FIXCNT 
AF 
A 



A 

(FLAG1),A 
HL,MAXCNT 
(COUNT), HI 
AF 



HL 



20H 

NZ, DBOUNS 

A, (3880H) 

1 

A,20H 

Z, DBOUNS 

A, (FLAG) 

(FLAG) ,A 
A 

3E3H 

A 

NZ, RESCNT 
HL, (COUNT) 
A,H 
L 

A,0 

Z, SETCUR 
HL 
( COUNT ),HL 



AF 

B,7 

HL,3801H 

DE,4036H 

A 

(HL) 

DE,HL 

(HL) 

DE,HL 

DE 

L 
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01040 




DJNZ 


LOOP1 




01050 




OR 


A 




01060 




JR 


NZ , LOOPO 




01070 




LD 


BC,500 




01080 




CALL 


DELAY 




01090 




POP 


AF 




01100 




EXX 






OHIO 




LD 


C, A 




01120 




LD 


A, (FLAG) 




01130 




OR 


A 




01140 




LD 


A,C 




01150 




RET 


Z 




01160 




CP 


41H 




01170 




RET 


C 




01180 




CP 


80H 




01190 




RET 


NC 




01200 


REDO 


BIT 


5, A 




01210 




JR 


Z s LCONV 




01220 




RES 


5, A 




01230 


FTEST 


CP 


7BH 




01240 




JR 


NC,REDO 




01250 




RET 






01260 


LCONV 


SET 


5 ? A 




01270 




JR 


FTEST 




01280 


EIND 


DEFB 







01290 


INIT 


LD 


HL, INIT 




01300 




LD 


DE 5 LCDRV 




01310 




OR 


A 




01320 




SBC 


HL 5 DE 




01330 




LD 


B,H 




01340 




LD 


C,L 




01350 




LD 


HL,EIND 




01360 




LD 


A s (3880H) 




01370 




AND 


1 




01380 




JR 


NZ . USEDMS 




01390 




LD 


DE, (MEMSIZ) 




01400 




JR 


BYPASO 




01410 


USEDMS 


LD 


DE, (DMEMSZ) 




01420 


BYPASO 


LDDR 






01430 




EX 


DE,HL 




01440 




LD 


(MEMSIZ) s,HL 




01450 




LD 


(DMEMSZ) S HL 




01460 




LD 


SP ? HL 




01470 




INC 


HL 




01480 




LD 


(VIDVEC) „HL 




01490 




LD 


B,H 




01500 




LD 


C,L 




01510 




LD 


HL 5 KBCHEK 




01520 




LD 


DE ? LCDRV 




01530 




OR 


A 




01540 




SBC 


HL S DE 




01550 




ADD 


HL,BC 




01560 




LD 


(KBVEC) S HL 




01570 




LD 


H;B 




01580 




LD 


L,C 




01590 




LD 


DE S 3E40H 




01600 




LD 


(CURPOS) ,DE 




01610 




LD 


DE,MAXCNT 




01620 




LD 


( COUNT) ,DE 




01630 




LD 


A s (FDC) 




01640 




INC 


A 




01650 




CP 


2 




01660 




JR 


C S BYPAS2 




01670 




LD 


A, (3880H) 




01680 




AND 


1 




01690 




JP 


NZ,DOSRDY 




01700 


BYPAS2 


LD 


DE ? 32H 




01710 




OR 


A 




01720 




SBC 


HL ? DE 




01730 




LD 


(SPOINT) ? HL 




01740 




CALL 


SETPTR 




01750 




XOR 


A 




01760 




LD 


(FLA6) ,A 




01770 




JP 


BASRDY 




01780 




END 


INIT 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** BREAKOUT - L1/4K ** 

A simulation of the arcade game. See how 
many inoffensive walls you can pulverise 
with fire balls. 



** INTERCEPT - L1/4K ** 

This is a Level 1 version of that populat 
Level 2 game SNAKE, which was published 
in our first issue and is featured on 
our free software cassette. 



** CHORD PRACTISE - LEVEL 2 ** 

Those music buffs amongst our readers can 
use this program to polish up their chord 
fingering. It was written by a doctor who 
lives in a small country town, who found 
that without access to a regular music teacher 
and having to learn to play an instrument 
from books, something like this program 
was needed. So he wrote it; now you can 
reap the benefit. 



** DOG RACE - LEVEL 2 ** 

It is said that Australians will gamble 
on two flies crawling up a wall, (which 
for our overseas readers' information 
is probably true), well, in this program 
you can bet on four Scottie dogs racing 
across the screen just for a change, and 
give those poor old flies a rest. 



** SHARE CHARTING - LEVEL 2 ** 

This is a data handling program for the 

input of daily, weekly or monthly share 

information and could be used by a retailer 

to chart retail sales or virtually any other 

requirement for displaying percentage variation 
in data. 



** PSYCHIC MASTER - LEVEL 2 ** 

This program was written to test the abilities 
of a person claiming to have psychic abilities. 
It will test for telepathy and clairvoyance 
and describes whether your results have 
been due to chance or true psychic abilities. 
Now that's a program I call really different! 
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The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II BASIC programs are 
recorded on side 1 of the cassette. Level II machine language programs and Level I programs 
are recorded on side 2. All programs are recorded twice in succession. The rates for a cassette 
subscription are printed on the inside front cover of each issue of the magazine. 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 

HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 



TAM&Y 



9>4n 



to CONQUEST ELECTRONICS Pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply - 

QTY. CATNO DESC. 



ADV. PRICE 



SUB TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



P/Code 



C0N0UK7 ELECTRONICS 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W, 2780 PHONE (047) 82 2491 



MANUAL 



by Edwin Paay 

Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of. Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 












